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NOTA DO EDITOR PORTUGUÈS 

Todos os programas contidos neste Vivrò sào apresentados de duas 
formas. 

Na primeira reproduziu-se rigorosamente a versùo originai, em te¬ 
tra tipogràfica e conforme o autor a concebeu. 

Na segunda, adaptaram-se para portugués nomes de ficheiros, 
comentàrios, etc., de modo a tornar os jogos mais compreensiveis 
para quem nào esteja familiarizado com a lingua inglesa. A impressào 
dos programas, neste caso, foi efectuada numa impressora T.S. 2040. 



INTRODUCO 


O grande criador de «puzzles» Henry Ernest Dudeney escreveu 
urna vez: «A história dos ‘puzzles’ perpetua, nem mais nem menos, a 
história actual do micio e desenvolvimento do pensamento humano 
exacto. Se nào tivessem existido ‘puzzles’ para solucionar, nào teria 
havido perguntas para por; e se nào tivesse havido perguntas a por que 
monòtono mundo seria o nosso!» 

Na actualidade, Dudeney faz a sua vidà sem «puzzles» e, portan¬ 
to, podemos esquecer, por enquanto, parte dos seus exageros; mas é 
provavelmente verdade que os «puzzles» tendem a encorajar algum 
pensamento lògico. As «palavras cruzadas» sào urna das mais impor- 
tantes artes da nossa època. 

Mas esquecendo tudo o resto, os «puzzles» sào sobretudo diverti- 

dos. 

Ha urna longa tradito de «puzzles» que vèm desde a antiga Babi¬ 
lònia. Muitos dos «puzzles» sào tào fascinantes agora corno o eram ha 
setecentos anos atràs. E para provar isso mesmo, os «puzzles» entram 
agora na Idade do Computador. Este è um livro de «puzzles» para 
computador, que servem tanto no ZX Spectrum corno no ZX81. 
Os computadores sào excelentes para fazer experièncias com 
«puzzles»: pode tentar-se urna resposta e verificar o que resulta. 

Alguns «puzzles», de facto, só poderiam ser resolvidos com a aju- 
da de um computador. Por exemplo, voce poderia «computar» um 
cubo de Rubik a quatro dimensòes, mas nunca poderia fazer um. (Infe- 
lizmente também. nào conseguirla resolvè-lo, e dai nós nào termos 
prosseguido com està ideia neste livro.) Num computador a cores voce 
poderà mudar as cores do mesmo modo que sera possivel fazè-lo com 
os tradicionais utensilios para o efeito: o papel e os làpis de cor. 

Outros «puzzles» adaptam-se bem. Conhece aquele do lobo, da 
cabra e da couve tentando atravessar um rio? Num computador pode 
desenhar o rio, por o barco a navegar e ver quem é comido... 



Finalmente, este livro tem très objectivos: colocar os «puzzles» na 
Idade do Computador; ensinar a pensar darò; mas, sobretudo, para 
simples divertimento. Foi divertido escrevè-lo: espero que se divirtam, 
tanto corno eu, a lè-lo e fazendo os programas. 



LEI A ISTO PRIMEIRO... 


...ou mete-se numa grande confusào. 

1 — A maioria dos programas deste livro vem em duas versoes: 
a primeira para o ZX81 ou TIMEX 1000 (16 K) e a segunda para o 
ZX Spectrum. Os quatro ultimos programas sào apenas para os entu¬ 
siasta do ZX Spectrum. 

2 — A versào para ZX81 funcionarà no Spectrum, mas a do 
Spectrum usa facilidades só nele disponiveis e por conseguinte nào 
funcionarà no ZX81. 

3 — Para poupar espaco e pape! e, portanto, o seu dinheiro, a lis- 
tagem do Spectrum é feita modificando a do ZX81. A seccào do Spec¬ 
trum mostra corno isso se poderà fazer em pormenor. Qualquer linha 
de programa do ZX81 que serà modificada na versào do Spectrum està 
marcada com urna seta — de modo a poupar tempo aos possuidores 
do Spectrum na introduco dos programas. 

4 — Outro aspecto: as varàveis no ZX81 sào todas as letras 
maiusculas (A, B, C, etc.); mas no Spectrum as variàveis sào normal¬ 
mente letras minusculas (a, b, c, etc.). Para também poupar papel a 
versào do Spectrum nào foi reescrita de modo a por letras minusculas 
em todas as variàveis; assume-se portanto que quando voce estiver a 
introduzir o programa, usarà letras minusculas. Portanto, PRINT X, 
Y na listagem serà modificado pelos utilizadores do Spectrum para 
PRINT x, y ... etc. 

5 — Urna caixa □ é usada para representar um espaco quando 
nào é óbvio que isto nào é mesmo necessàrio, sendo H um espaco em 
inverso video, e a caixa en voi vendo qualquer caracter quer dizer tam¬ 
bém inverso video. 

6 — No ZX81 faz-se “GOTO” e “GOSUB” e no Spectrum “GO 
TO” e “GO SUB”. Nada se indica acerca disto nas Iistagens. 



7 — No que se refere aos caracteres gràficos convencionou-se o 
seguinte: 

ZX81: O g pequeno indica «caràcter gràfico»: é seguido 
pela letra ou nùmero a que refere o caràcter. “gT” é H5- 

Spectrum: Simultaneamente só para os caracteres que sào 
acedidos com CAPS SHIFT é adicionada a letra “c”. “g6 é 
SS; e “góc” é EH. 

8 — No Spectrum deverà dar as cores directamente do teclado: 
BORDER PAPER e INK antes de iniciaìizar qualquer progama. Para 
o fazer ponha em comando qualquer coisa corno isto: 

BORDER 1: PAPER 3: INK 7 

para fundo magenta, bordo azul e letras a preto. (Tede ENTER duas 
vezes para que o fundo apare?a). Qualquer combina?ào é em principio 
permitida mas nào ficarà muito bonita. Experimente; pode mudar 
sempre que quiser as cores antes de teclas RUN. Eu nào inclui estes 
comandos iniciais nos programas do Spectrum porque sào muito roti- 
neiros: muitas das versòes dos programas do Spectrum incluem de 
qualquer modo outras cores. 

9 — Os programas estào prontos a funcionar por si próprios e 
podem ser introduzidos independentemente da ordem em que apare- 
cem no livro: introduza o que mais Ihe apetecer e siga as instrugòes. 
10 — E chega de conversa fiada (sic) — ao trabalho! 



Atravesse com os seus bens o rio — mas tenha cuidado! 
Senào eles comem-se uns aos outros. 



O LOBO, A CABRA E A COUVE 
thè tuoi!, thè goat and thè cabbage 



Imagine que voce é um fazendeiro do século xvii que està levando 
os seus bens ao mercado. Eles sào os seguintes: 

1 lobo; 

1 cabra; 

1 couve. 

Nào me pergunte por que é que o fazendeiro tem um lobo; eu sou 
apenas o autor do programa. 

Chega a um rio, que é preciso atravessar. Existe um barco que o 
transportarà a si e apenas um dos seus bens (lobo, cabra ou couve). 


n 







Enquanto se aproxima os seus bens portam-se admiravelmente. 
Mas: deverà deixar o lobo sozinho com a cabra numa margem enquan¬ 
to atravessa o rio... bem, os lobos sào doidos por carne de cabra. E si¬ 
milarmente as cabras adoram couves. Felizmente que o lobo detesta 
couves (eie frequentou um internato quando era mais novo) e a co uve é 
muito pacifica; portanto pode deixar estes dois juntos se quiser. 

Quais deles devem atravessar o rio e erri que ordem? 


VERSÀO ZX81 

10 LET B$ = “□ gR gF gF gF gE □” 

20 LET BC = 0 

30 LET QUERY = 500 

40 LET CHECK = 1000 

50 LET BOAT = 2000 

60 LET BK = 1 

70 LET OUT = 2500 

80 LET IN = 3000 

82 LET ERRORE 5000 

85 LET E AT = 4000 

90 LET C$ = “□□□□□ □ □” 

93 DIM D$ (2, 3) 

95 LET D$ (1) = “WGC” 

100 PRINT AT 15,0; “□ □ g6 g6 g6 [22 espacos] g6 g6 g6” 
-> 110 PRINT AT 16,0; “□ □ ■ ■ ■ gS {22 vezes ] ■ ■ ■” 

120 PRINT AT 14,2; D$ (1) 

* 130 PRINT AT 15,5; B$ 

200 REM MOVE 

210 GOSUB QUERY 

220 GOSUBBOAT 

230 GOTO 200 

500 REM QUERY 

505 IF BC = 0 THEN GOTO 540 

510 PRINT AT 2,0; “TARE OUT OF BOAT?” 

520 INPUT 0$ 
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530 GOSUBOUT 

535 IF D$ (BK) = “□ □ □” THEN GOTO 570 
540 PRINT AT 2,0; “PUTINTO BOAT? □ □ □ □” 

550 INPUT 1$ 

560 GOSUBIN 
570 RETURN 
1000 REM CHECK 

1010 IF D$ (2) = “WGC” THEN PRINT AT 2,0; “□□□□□□ □ 
WELLDONE □□□□□□□” 

1020 IF D$ (2) = “WGC” THEN STOP 
1030 RETURN 
2000 REM BOAT 

2010 FOR T = 5 * (BK = 1) + 20 * (BK < > 1) TO 20 * (BK = 1) 

+ 5 * (BK < > 1) STEP 1 - 2 * (BK < > 1) 

2020 PRINT AT 15, T;B$ 

2025 PRINT AT 14, T;C$ 

2030 NEXTT 

2035 GOSUBEAT 

2040 LET BK = 3 - BK 

2050 RETURN 

2500 REM OUT 

2505 IFO$ = “”THEN RETURN 

2510 FOR F = 3 TO 5 

2520 IF C$ (F) = 0$ THEN GOTO 2540 

2530 NEXTF 

2540 LET C$ (F) = 

2550 LET D$ (BK, F-2) = 0$ 

2560 PRINT AT 14,2 * (BK = 1) + 27 * (BK < > 1); D$ (BK) 

2570 PRINT AT 14,5 * (BK = 1) + 20 * (BK < > 1); C$ 

2580 LET BC = BC — 1 
2590 GOSUB CHECK 
2600 RETURN 
3000 REM IN 

3005 IF 1$ — “ ’* THEN RETURN 
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3010 FOR F = 1TO 3 

3020 IF D$ (BK, F) = 1$ THEN GOTO 3040 

3030 NEXTF 

3040 LET D$ (BK, F) = 

3050 LET C$ (F + 2) = IS 

3060 PRINT AT14,2 * (BK = 1) + 27 * (BK < > 1); D$ (BK) 

3070 PRINT AT 14,5 * (BK = 1) + 20 * (BK < > 1); C$ 

3080 LET BC = BC +1 

3085 IF BC = 2 THEN GOTO ERROR 

3090 GOSUB CHECK 

4000 REM EAT 

4010 LET X$ = D$ (BK) 

4020 IF X$ = “WGD” OR X$ = “aGC” THEN GOTO 4040 
4030 RETURN 

4040 PRINT AT2,0; “□ □□□□□□ WOOPS... EATEN □□□□□□” 

4050 STOP 

5000 REM ERROR 

5010 PRINT AT 2,0; “SORRY, TOO MANY IN BOAT. TRY” 

5020 PRINT “AGAIN” 

5030 STOP 
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SE USAR A VERSÀO DO ZX81 


Introduza tudo e verifique: tede RUN. Vera o rio e o barco; o 
lobo, a cabra e a couve representadas pelas suas iniciais, situam-se na 
margem. (Eu nào o desenhei a si mas està là: voce move-se corri o 
barco). 

Em cada passo ser-Ihe-à perguntado que coisa quer levar no bar- 
co. Para responder deve teclar “W”, “G”, “C” ou □ conforme o 
que queira levar correspondente à inicial ou nada. Seguidamente pede- 
-se-lhe o que quer tirar do barco: terà de responder com as teclas atràs 
descritas. 

O barco atravessa o rio e verificarà se fez urna boa escolha. 

Se conseguir transportar tudo, o computador assinalà-lo-à. 


VERSÀO ZX SPECTRUM 

Modifique as linhas seguintes: 

10 LET B$ = “□ gl g3c g3c g3c g4c □” 

95 LET D$ (1) = “gA gG gC” 

100 PRINT AT15,0; “□ □ g3c g3c g3c [22 espa?os] g3c g3cg3c” 

110 PRINT AT 16,0; “□ □ □ □ INK 5; “g3 [22 vezes] INK 0; “□ □ □” 
130 PRINT AT 15,5; INK 3; B$ 

1010 IF D$ (2) = “gA gG gC” THEN PRINT AT 2,0; “□□□□□□ □ 

Well done! □□□□□□ STOP 
1020 [apague està linhaj 
2020 PRINT INK 3; AT 15, T; B$ 

2520 IF CODE C$ (F) « CODE OS + 47 THEN GOTO 2540 
2550 LET D$ (BK, F - 2) = CHR$ (47 + CODE OS) 

3020 IF CODE D$ (BK, F) = CODE 1$ + 47 THEN GOTO 3040 
3050 LET C$ (F + 2) = CHR$ (47 + CODE 1$) 

4020 IF X$ = “gA gG □” OR X$ = “□ gG gC” THEN GO TO 4040 

Adicione estas linhas: 

525 IF OS = “W” THEN LET OS = “A” 

555 IF 1$ = “W” THEN LET 1$ = “A” 

2045 INK0 
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Adicione as linhas para definir as silhuetas do lobo, da cabra e da 
couve (com A G C na secgao de definito de caracteres pelo 
utilizador): 

6000 LET Y$ — “AGC” 

6010 DATA 162, 226,242, 94, 30, 36, 34, 34, 56, 40,226, 254, 62,34, 34, 34,16, 
84,254,254,124,124,56,16 
6020 FOR X = 1TO 3 
6030 FOR N = 0 TO 7 
6040 READ M 

6050 POKEUSRYS(X) +N,M 
6060 NEXTN 
6070 NEXTX 


Se quiser efeitos de som para a soluto adicione estas linhas: 

1015 IF D$ (2) = “gA gG gC” THEN BEEP .3,0: BEEP .3,4: BEEP .3, 7: 
BEEP 1.5,10: STOP 


E apague: 

STOPem 1010 

SE USAR A VERSÀO DO ZX SPECTRUM 

1 — Inicialize, após a ligagào, com GO TO 6000 para definir os 
caracteres gràficos. 

2 — Depois faga RUN e proceda corno na versào ZX81. 
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Baralhe o alfabeto (onde faltam o Y e o Z) 
Volte ao mesmo: 



DESORDEM ALFABÈTICA 
aiphabatical disorder 



Este programa cometa com o alfabeto ordenado da forma seguin- 
te: 


A F K P U 

B G L O V 

C H M R W 

D I N S X 

E J O T □ 

e a primeira coisa a fazer é misturar as letras todas. 
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o seu traballio é conseguir ordenà-las novamente corno estavam 
no infoio. Para o conseguir terà de trocar qualquer letra adiacente ao 
espago em branco □ por eie pròprio. Evidentemente que o espago fica- 
rà agora onde estava a letra. Por outras palavras, imagine que rodopia 
pelo quadrado de letras. 

Para mover o espago use as quatro “setas”: teclas 5, 6, 7 e ». 


VERSÀO ZX81 

10 FORI = 1 TO 6 

-> 20 PRINT AT 2* 1,10; “gH gH gH gH gH gH gH gH gH gH gH” 

30 NEXTI 
40 FOR I = 1 TO 5 

_> 50 PRINT AT 2 * I + 1,10; “gHDgHngHDgHDgHCIgH” 

60 NEXTI 
70 DIMAS (5, 5) 

100 FOR 1=1 TO 5 
110 FOR J = 1 TO 5 

H5 LET A$ (I, J) = CHRS (32 + I + 5 * J - 62 * (I = 5 AND J = 5) ) 
120 PRINT AT2 * I + 1,2 * J + 9; A$ (I, J) 

130 NEXT J 

140 NEXTI 

200 LET P = 5 

210 LET Q = 5 

215 FORT = ITO 50 

220 LET W = 2 * INT ( 2 * RND) — 1 

230 LET P0 = P + W 

240 IF P0 > 5 OR P0 < 1THEN GOTO 220 

250 LET W = 2 * INT (2 * RND) — 1 

260 LET Q0 = Q + W 

270 IF Q0 > 5 OR Q0 < 1 THEN GOTO 250 

275 GOSUB290 

280 NEXTT 

285 GOTO 400 
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290 LET Y$ = A$ (P0, Q0) 

300 LET A$ (P0, Q0) — A$ (P, Q) 

310 LET A$ (P., Q) = Y$ 

320 PRINT AT2 * P0 + 1,2 * 00 + 9; A$ (P0, Q0) 

330 PRINT AT2 * P + 1,2 * Q + 9; A$ (P, Q) 

340 LET P = P0 
350 LET Q = Q0 
360 RETURN 

400 PRINT AT 21,0; “NOW IT “ ” S YOUR TURN” 

410 IFINKEY$o“”THENGOTO410 
420 IF INKEY$ = “ ” THEN GOTO 420 
430 LET 1$ = INKEY$ 

440 IF 1$ = “5” THEN LET 00 = Q — 1 
450 IF 1$ = “6” THEN LET P0 = P + 1 
460 IF I$ = “7” THEN LET P0 = P- 1 
470 IF 1$ = “8” THEN LETO0 = O + 1 

480 JFP0> = 1 THEN GOTO 483 

481 LET P0 = 1 

482 GOTO 410 

483 IF P0 < = 5 THEN GOTO 486 

484 LET P0 = 5 

485 GOTO 410 

486 IF 00 > = 1 THEN GOTO 489 

487 LET 00=1 

488 GOTO 410 

489 IFQ0< = 5THENGOTO492 

490 LET 00 = 5 

491 GOTO 410 

492 GOSUB290 
500 GOTO 410 

SE USAR A VERSÀO DO ZX81 

. Comece corti RUN; espere até finalizar o baralhar; comece agora 
teclando as setas corno quiser! 
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VERSÀO ZX SPECTRUM 


Modifique as linhas que se seguem: 

20 PRINT AT 2 * 1,10; PAPER 3; “ [11 espa?os ] ” 

50 PRINTAT2*I+ 1,10;INK3; 

115 LET A$ (I, J) = CHR$ (I + 5 * J + 59 - (I = 5 AND J = 5) * 57) 

Adicione està linha: 

355 BEEP .1, P + 5 * Q 

SE USAR A VERSÀO DO ZX SPECTRUM 

Comece com RUN; espere (agora menos tempo) pelo baralhar das 
letras; comece teclando as setas corno quiser. 



24 









1 1 0 

r OH ,1=1' 

1 5 , 



— =■ 

OLe^l “34 

*57) 

.. . . 


' ^ 

NEXT .1 




•1 A 

NEXT i 





: yTT* r: — ^ 




4- : ‘| ]/\ 

LET 4=5 




^ 1 r“: 

p p t — 1 

IO 50 



220 

LET UJ =2 + 1 NT (2 

4 R N D ) -1 


230 

LE: p0=p 

T W 



240 

IF p0 > 5 

OR p0< 

1 THEN 90 

TO 

220 





250 

LET w =2 * INT ( 2 

•JrRND) -1 


25S 

LET q0=q 

■fui 



270 

li- q0 >5 

OR 40 < 

1 THEN 90 

TO 

250 




275 

G O 5 U 5 £ 

90 



2S0 

NEXT t 




2SS 

OU S U 400 



290 

Lei y $=a$ (p 0 .. q0) 


3 0 0 

LE! 3$ (p0,q0j = 

a 5 t P , 4 ) 


310 

LET a$(p 

.. q) =y $ 



320 

PRINT PT 

2*p0 +1,2 440 -*-9 ; 

a è ( p 

0, qs) 





330 

PRIMT PT 

2 *p +1 

/ 2 * 4 4 ’=“ ì a S 

P ; H 

" 340 

LET p =p 0 
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Le i q =40 




•7T; ZZ. ZZ 

RFFP . ~T . 
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3 D 0 





400 

PRINT PT 

P •*; . 0 ; 

11 figo r a a 

a s u 

_410 

Ir INKEY 

5 < > ' ' 

THEN 90 T 

0 41 

^423 

j F THKEV 

§_=■■* - 

HEN 90 TO 

420 

4-0=2 

leT i?=ì 

N^.tY 5 



4-40 

r* 1 ^ —- £ 1 * 

! f!EN 

E E ! 4 : E‘ = 4 

— X 

4 b8 

j_ r* 1 15 s “ & 

■ H r- r-j 

leT p3=p 

4 X 

4 7 0 

:Sì==o 

i hi N 

L-iZ. ! 

-f- Il 

t2.r 

! PI" D yt zz ’ì 

0 



4.0 


! n e 

trU : U- 4-OE 
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Vàrios gatos todos seguidos est do sentados num muro. 
Consegue in verter a sua sequéncia? 


TRQCA-GATQS 

cat-swap 



O programa apresenta-lhe urna sèrie de gatos numerados e orde- 
nados 1 2 3 4 5 6 7 (por exemplo). Consegue reordenà-los para 7 6 5 4 3 
2 1? Ha um espago em branco do lado esquerdo da sèrie. Um gato 
pode mudar-se para o espa?o se estiver adiacente a eie ou pode saltar ape- 
nas sobre um outro gato (corno nas damas) para o espa^o em branco. 
Voce escolhe que gato quer mover e continua por ai em diante até pò- 
-los na ordem pretendida. O espago em branco deve ficar no firn onde 
estava no micio, ou seja, do lado esquerdo. 


VERSÀO ZX81 

10 

LET P = 0 

20 

DIM W (9) 

30 

FORI=1T09 

40 

LET W (I) = I 

50 

NEXTI 

-> 100 

PRINT AT 0,0; “HOW MANY CATS” 

105 

INPUTC 

110 

LET N$ = “aiD2a3D4D5n607a8n9 : 

120 

PRINT AT 16, 6; + N$ (TO 2 * C) 

130 

FOR1=1TO C 
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-> 140 PRINT AT 14, 6 + 2 * I; 

150 NEXTI 

200 PRINT AT 0,0; “MOVE WHICH CAT” 

205 INPUT A 

210 IF A < 1 OR A > C THEN GOTO 200 
212 PRINT AT 0,0; “ [14 espa?os ] ” 

215 IF ABS (W (A) — P) > 2 THEN GOTO 200 

220 PRINT AT 16, 6 + 2 * P; A; AT 14,6 + 2 * P; AT 16,6 + 2 * W (A); 

AT 14,6 + 2 * W (A); 

224 LET R = W (A) 

225 LET W (A) = P 
230 LET P = R 

240 FOR J — 1TO C 

250 IFW(J) + J<>C+ 1 THEN GOTO 200 
260 NEXTJ 

265 IFP>0THEN GOTO 200 

270 PRINT AT 8,12; “CATS SWAPPED” 

280 STOP 


SE USAR A VERSÀO DO ZX81 

Tede RUN. Os gatos sào os asteriscos. Escolha os nùmeros e veja 
corno eles saìtam. Se conseguir ordenà-los da maneira pretendida o 
computador assinalà-lo-à. 


VERSÀO ZX SPECTRUM 

Modifique as linhas seguintes: 

100 INPUT “Howmany cats?”;C 
105 [apague està linha] 

140 PRINT AT 14,6 + 2 * I; INK 4; “gC”; INK 0 
200 INPUT “Move whichcat?”; A 
205 [apague està linha] 
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220 PRINT AT16,6 + 2 * P; A; AT14,6 + 2 * P; INK 4; “gC”; INK 0; 
AT 16, 6 + 2 * W (A); AT 14,6 + 2 * W (A); ; AT 16,6 + 

+ 2*P; A;: BEEP.l, A 

Adicione a rotina para definir os caracteres gràficos: 

1 GOSUB 500 

500 DATA 74,122,122, 50,250,254,124,0 

510 FOR T = 0 TO 7 

520 READ X 

530 POKE USR “C" + T, X 

540 NEXTT 

550 RETURN 

SE USAR A VERSÀO DO ZX SPECTRUM 

Logo após a liga«?ào, inicie com GO TO 500. Quando os caracte¬ 
res gràficos foram definidos pode teclar RUN. Escolha qual o gato que 
quer mover tal corno no ZX81. 
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110 Li! n$ = ,: 1 £ 3 4 u 0 
120 PRINT PT 16 : o: ' M" +n5 l 


T hj à*' =7= 




2 0 0 i n P UT ' ” ti o v e r q u a l g a t o P _ ' ’ ^ a 
210 IF a<l uh a>c I HEN GO iU hu 

^ £ 12 pr int ht e .* s ; !l 

215 IF hES (W(a)-P)>2 THEN GO T 

0 200 _ ,, _ 

220 PRINT PT 14,6424P ;ajHi 14,to 
+ 24P ; INK 4INK 0 ; HT li , P+2 
4!.i.i (a 3 ; ’ 3 PT 14S+24W (a j h i 

16.6 424P : a : BEiP .1,8 

224 LET r=Wta) 

225 LET W(a)=P 
230 LET P=r 

240 FOR j=l TO C _ _ __ __ _ 

250 IF w(j)4jOC4l THEN LU 70 =. 
00 

260 NEXT j __ 

255 IF P >0 THEN GO TO 200 
27© PRINT PT 8,5; '* PCERTOU ! : TOC 

ou os gaios." 

260 STOP _ __ ___ 

508 DPTP, 74,122,122,50 , £ = 0 ; ^-'4 ; 
124, S 

510 FOR t=0 Tu 7 
520 REPD X 

530 POKE U5R "c"4t,x 
540 NEXT t 
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Use os algarismos de 1 a 9 para fazer 100: 



O CENTO 
stringing thè tori 


3-4-*5+S 7-a 9 


O écran mostrar-lhe-à os nove algarismos 1-9, com espagos entre 
eles e urna seta a apontar um desses espagos. Voce pode mover a seta e 
fazer inserir no espago qualquer sinai de operaio + , -, , /; ou en- 
tào removè-lo mais tarde se tornar essa decisào. Quando achar que o 
que està no écran tem corno resultado 100, tede “P” para verificà-lo. 

Os espagos entre os algarismos sào ignorados quando o computa- 
dor calcula a resposta. Se, por exemplo, voce tivesse respondido: 

1 + 2 3 + 4 5 + Ó + 7 + 8 — 9 

isso seria interpretado pelo computador corno: 

1 + 23 + 45+6 + 7 + 8- 9 
que é 81. 

Muito perto da resposta correcta, portanto tente outra vez! 


VERSÀO ZX81 

10 LETN$ = “lD203n4n5D6D7D8n9” 
^ 20 LETC$ = 

30 LET H = 1 
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100 PRINT AT16,10; N$ 

110 PRINT AT 18,7 + 2 * H; C$ 

120 IFINKEYS < > “ ” THEN GOTO 120 

130 IF INKEYS = “ ” THEN GOTO 130 

140 LET I$ = INKEYS 

150 IF 1$ = ”5” THEN GOSUB 300 

160 IF 1$ = “8" THEN GOSUB 400 

170 IF 1$ = “B” THEN LET N$ (2 * H) = 

180 IF 1$ = “K” THEN LET N$ (2 * H) = “+" 

190 IF 1$ = “J” THEN LET N$ (2 * H) = “-** 

200 IF 1$ = “V” THEN LET N$ (2 * H) = 

210 IF 1$ = “X” THEN LET N$ (2 * H) = “ET 

220 IF 1$ = “P" THEN GOTO 1000 

230 GOTO 100 

300 LET H = H - 1 + (H = 1) 

310 PRINT AT 18.7 +■ 2 * H; C$ 

320 RETURN 

400 LET H = H + 1 - (H = 8) 

410 GOTO 310 
1000 LET A$ = “ ” 

1010 FORT = ITO 17 

1020 IF N$ (T) < > THEN LET A$ = A$ + N$ (T) 

1030 . NEXTT 

1040 PRINT AT 1.5; “THE VALUEIS VAL A$ 

^ 1050 IFVALA$= 100 THEN PRINT AT 3,5; “WELLDONE” 

1060 IF VAL A$ = 100 THEN STOP 
1070 FOR J = 1TO 50 
1080 NEXTJ 

1090 PRINT AT 1.0; “ [32 espav’os] ” 

1100 PRINT AT 3.0;“ [32 espa^os]” 

1110 GOTO 100 
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SE USAR A VERSÀO DO ZX81 


RUN; use as teclas 5 e 8 para mover o cursor; as introdugòes dos 
sinais aritméticos sào feitas com as teclas onde esses sinais estào escri- 
tos; use o espago para introduzir X. Quando estiver contente, prima P: 
veja se atingiu o cento. 


VERSÀO ZX SPECTRUM 

Modifique as linhas seguintes: 

20 LETC$ = 

1050 IF VAL A$ = 100THEN PRINT AT 3.5; “Well done!": BEEP .3.0: 
BEEP .3.4: BEEP .3.7: BEEP 1.5.10 

SE USAR A VERSÀO DO ZX SPECTRUM 

Faga tal corno para o ZX81 



3 
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220 IF i$ = ,, p" THEN GO 10 3.300 
230 GO TO 100 
303 LET h =h-irih =13 
313 PRINT PT 18,7+2*h;C3 
320 RETURN 
400 LE I h=h-ri- ih =8 J 
413 GG TO 310 
1030 LET a $ = "" 

1010 POR t=l TO 17 _ . . 

1020 IF n $ (t5 <> ‘ ThfcN Lt: 4$ =d 

$+na ( t} 

1330 NEXT t „ 

1043 print RT 1,5; "0 vaior e •; 


HL a % 

1050 Ir URL 3$= 
3.5;"Gonsegu i u 
EP .3,4: BEEP * 
1060 IF URL ai= 


100 THEN PRINT RT 
1 " : BEEP *3,0: BE 
3,7: BEEP 1.5,10 
103 !HcN 5iUH 


1070 FOR j =1 TO 53 
ISSO NEXT j 


1390 PRINT RT 1,3.;” 


3,0 


1113 


TO 


ì Ch(?ì 
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Divida o vinho mas nào o entorne! 


JUSTAS REPARTIgÓES 
fair shares 




Vocè tem tres copos com vinho rosé que contem respectivamente 
8, 5 e 3 medidas cada um. O copo de 8 està cheio mas os outros estào 
vazios. Voce deve dividir o vinho em duas porfoes exactamente iguais 
pelos outros dois, vertendo o vinho de um copo para outro. Só vai po- 
der parar quando um copo ficar cheio e o outro vazio. 

Consegue fazer isto? 

Este é um problema famoso que existe pelo menos desde o ano 
1400. Outro famoso problema foi pegar na garrafa para comegar o 
problema propriamente dito... 
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VERSÀO ZX81 


10 LET A$ = “□□□□” 

-> 20 LET B$ = “gG gG gG gG” 

30 LET C$ = “g8 □ □ □ □ g5” 

—> 40 LET D$ = “g8 □ □ □ DgS” 

50 DIM H (3) 

60 LET H (3) = 8 
100 FOR 1 = 1 TO 3 
110 LET K — 3*1 — (I>1) 

120 FORT = ITO K 

130 PRINT AT 13 - K + T, 10 * I - 7; C$ 

140 NEXTT 

150 PRINT AT 14,10 * I - 7; D$ 

160 PRINT AT 15,10 * I - 5; K 
170 NEXTI 
180 GOSUB 1000 

200 PRINT AT 0,0; “POUR FROM?” 

-> 205 INPUT F 

207 IF F < > 3 AND F < > 5 AND F < > 8 THEN GOTO 200 
-> 210 PRINT AT0,0; “POUR INTO?” 

215 INPUT G 

217 IF G < > 3 AND G < > 5 AND G < > 8 THEN GOTO 210 
220 LET I = INT ( (F + 1) / 3) 

230 LET J = INT ( (G + 1) / 3) 

240 LET Q = H (I) + H (J) 

300 IFQ>GTHEN GOSUB 400 
310 IFQ< = GTHEN GOSUB 500 
320 GOSUB 1000 

330 IF H (2) = 4 AND H (3) = 4 THEN GOSUB 600 
340 GOTO 200 
400 LET H (J) = G 
410 LET H (I) = Q - G 
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420 

RETURN 


500 

LET H (J) = 0 


510 

LET H (I) = 0 


520 

RETURN 


600 

PRINT AT2,10; “WELL DONE” 

610 

STOP 


1000 

POR I = 1 TO 3 


1010 

FORT = 1 TOH(I) 


1020 

PRINT AT 14-T, 10*1- 

-6; B$ 

1030 

NEXTT 


1040 

FOR T = H (I) + 1 TO 3 * 

I - (I > 1) 

1050 

PRINT AT 14 -T, 10*1- 

- 6; A$ 

1060 

NEXTT 


1070 

NEXTI 


1090 

RETURN 



SE USAR A VERSÀO DO ZX81 

RUN; escolha o copo para encher e esvaziar, usando o algarismo 
que lhe està por baixo; repita ludo até que tenha 4 medidas no copo 
de 5 e 4 medidas no copo de 8. 

VERSÀO ZX SPECTRUM 

Modifique as linhas seguintes: 

20 LETB$ = “g3g3g3g3” 

30 LET C$ = “g5 □ □ □ □ g5c” 

40 LET D$ = “g5 g8c g8c g8c g8c g5c” 

200 INPUT “Pour From?”;F 
205 [apague està linha] 

210 INPUT “Pour Into?”;G 
215 [apague està linha] 
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Adicione estasi 

70 LET G = 8 
1005 INK2 + I 
1080 INK0 

1025 IFI = INT ( (G + 1) / 3) THEN BEEP .05,5 - T: 

BEEP .05, 5 - T - .3: BEEP .05, 5 - T - .7 

SE USAR A VERSÀO DO SPECTRUM 

Fa?a tal corno para o ZX 81. O vinho muda de cor eviden 
temente... 



38 







4IS LET h Ci3 =Q —Q 
420 RETURN 
500 LET h C j) =q 
510 LET h(ij=0 
520 RETURN 

500 print RT 5.10;"Conseguiu!“ 
610 STOP 

1000 POR i=1 Tu 3 

1005 IMK £+i 

1010 POR t=i J0 h (i3 

1S20 PRINT RT 14-1,10*1-5; b$ 

1025 IP i =INT Uq+13/3) THEN BEE 
P . 05,5 -1 : BEEP ,05,5-t- 3 : BEEP 
.05,5-1- , 7 
1030 NEXT t 

1040 POR t=h(i)+l TO 3*i- ■ 1 >13 
1050 PRINT P;T 14-1 . 10*i -5 ; a $ 

1S6S NEXT t 
1070 NEXT i 
1080 INK 0 
1090 RETURN 
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NOTAS 
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À medida que caminha pela floresta voce vai acumulando 
urna carga màgica: para sair dela lem que conseguir 
ter urna carga màgica igual a zero. Consegui-lo-à? 



A FLORESTA MÀGICA 
thc magic foresi 



Neste «puzzle» o computador desenha urna floresta quadrada 
com quadrados numerados. Cada um destes numeros representa o va¬ 
lor da «carga màgica» nesse locai especifico da floresta. Voce vai mo¬ 
vendo um cursor através da floresta, com o objectivo de chegar ao 
santuàrio do outro lado: o santuàrio é a baliza do outro lado. À medi¬ 
da que vai passando por cada quadrado a carga màgica dele vai sendo 
adicionada à sua. Contudo, por ser màgica, a adigào ignora as deze- 
nas; se por exemplo 5 + 7 = 12 eie ignora o 1 e fica 2; se 8 + 6 é 14 eie 
ignora o 1 e fica 4. Deste modo voce pode perder carga màgica jà que, 
por exemplo, 3 + 7 = 10 e portanto é 0, e là se foi toda a carga màgica. 

Consegue sair da floresta com urna carga màgica igual a zero? 


41 





VERSÀO ZX81 


-> 1 FAST 

2 LET C = 0 
5 DIM D (10,10) 

10 FORI = 1 TO 10 
20 FOR J = 1 TO 10 
30 LET D (I, J) - INT (10 * RND) 

35 PRINT AT 2 * I — 2,2 * J + 4; D (I, J) 

40 NEXTJ 
50 NEXTI 

60 PRINT AT 9,1 ; “g3 g6”; AT 10,1 ; “g8” ; AT 11,1; “g2 g7” 

70 PRINT AT9,30; “g6g4”; AT 10,31; “g5”; AT 11,30; “g7 gl” 
80 SLOW 
100 LET P = 10 
105 LETO = 2 
110 LET N = 0 
120 GOSUB 1000 

200 IFINKEYS < > “ ” THEN GOTO 200 
210 IF INKEY$ = “ ” THEN GOTO 210 
220 LET 1$ = INKEY$ 

224 LETP0-P 
226 LET 00 = Q 

230 IF 1$ = “5" THEN LET Q = O - 2 
240 IF 1$ = “6” THEN LET P = P + 2 
250 IF 1$ = “7" THEN LET P - P - 2 
260 IF 1$ = “8’' THEN LET Q = Q + 2 
262 LET C = C + 1 
265 IF P > 18 THEN GOTO 500 
270 IFO <6 ORO >24THEN GOTO 300 
280 LETN = N + D (1 + P/2,Q/2 - 2) 

290 IF N > 9 THEN LET N = N - 10 
300 GOSUB 1000 
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310 GOSUB 1020 

320 IF P = 10 AND Q = 30 THEN GOTO 2000 
400 GOTO 200 
500 LET P = P - 2 

510 PRINT AT 21,0; “OUT OF BOUNDS” 

520 FORT = ITO 50 
530 NEXTT 

540 PRINT AT 21,0; “□□□□□□□□□□□□ □” 

550 GOTO 200 

1000 PRINT ATP,Q;CHR$ (156 + N) 

1010 RETURN 

1020 IF Q0 < 6 OR O > = 24 THEN PRINT AT P0, 00; 

1030 IF 00 > 5 AND Q0 < 25 THEN PRINT AT P0. Q0; 

D (1 + P0/2.Q0/2-2) 

1040 RETURN 

2000 IF N= 0THEN PRINT AT 20.0; “CONGRATULATIONS. 

YOU TOOK C; “□ MOVES” 

2010 IF N < > 0 THEN PRINT AT 20,0; “SORRY, WRONG TOTAL - ” 
“PLEASETRY AGAIN.” 


SE USAR A VERSÀO DO ZX81 

RUN; espere que a imagem do écran aparega. A floresta està no 
meio e voce està do lado esquerdo, sentado nessa baliza. Hà outra bali- 
za do lado oposto onde voce terà que chegar. Os numeros de floresta 
sào as cargas màgicas. 

Usando as quatro teclas de setas voce pode mover-se através da 
floresta analizando ao mesmo tempo as adigòes que vai fazendo. Se es- 
colher o caminho cuidadosamente vai conseguir com certeza atingir o 
objectivo com urna carga màgica apenas de 0. 

O programa incìica-lhe quantos passos teve que dar. Veja se con¬ 
segue dar o menor nùmero possivel de passos. 
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VERSÀO ZX SPECTRUM 


Modifique 

1 PAPER 7: INK 0: CLS 

60 PRINT AT 9,1; “g4 g3c”; AT10,1; “g5”; AT 11, l;“glg3” 

70 PRINT AT 9,30; “g3c g7c”; AT 10,31; “g5c”; AT 11,30; “g3 g2” 
80 [apague està linha] 

1000 PRINT AT P, Q; FLASH 1 ; CHR$ (48 + N) 

De mais colorido ao seu «puzzle» fazendo: 

8 PAPER4 
55 INK 2 
75 INK 0 
77 PAPER 4 

E também algum som com: 

222 BEEP .3,2 * VAL 1$ 

SE USAR A VERSÀO DO ZX SPECTRUM 

Faga o mesmo que para o ZX81. 
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1 

-'fi PER 

7 : INK 0 

U L i : 

£ 

-ET c 

= 0 


5 

3-1 f-1 d 

(10 10) 


S 

PRPER 

4 


13 

- OR i 

=1 TO 1S 


20 

~ O R j 

=1 TO IO 


33 

_ET d 

Ci , .i Ì = JNT 

C10+RND) 

35 

PRINT 

fiT 2*i-£ 

, £ * j 4- 4 ; d ( i , j 3 
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'■•4EX i 

J 


50 

MEXT 

3. 


w* Zj 

INK 2 



60 

=r RINT 

HT 9,1; 

== " ; h ! 10,1.;" 

; QT 

11 .= 1 




PRINT 

hT p,3 S; 

"== " ; RT 10/31 



; 30 ; ,,ss 11 


7 

INK 3 




FT^D 



0 — 




•1 f* 


= 0 


SS 

— !— ‘z- ri 

k E v|< >*■ j: 

THEN GO TO 20 

_4| 

L. t : : I 

5 = 4NKRY 5 

HEN 30 TO 213 

■7: ;7= 


W ” .2 . . . : — : . 

. .__ 
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5S0 90 T0 203 

ISO 0 PRINT RT P ; q ; F L fi S H 1 : CH R 2 

(48+n 3 

1010 RETURN _ __ _ 

10S0 IF q0 <6 OR q > =24- THEN PRInT 

H ! p : H 3 _ 

1030 IF q0 >5 HND q<25 THEN PRINT 
HT P 0 , q 0d (1 + P 0 / 2 .= q 0 / 2 - 2 3 
134-0 RETURN _ , 

2300 Ir n =3 ! HtN PRINT Hi =: 3 > 0 .= 

Para bensì 

conse q u i u erri '*c ; ’' hjov imenios ' 1 
2010 IF n < >0 THEN PRINT hT 19,3.; 
Sue penai ... 

n t o tal e s t a v a e r r a d o :! .= " 
Tenie outra vez 
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Quantas rainhas de xadrez 
precisa para atacar, simultàneamente , 
lodo o tabuleiro? 



RAINHAS DOMINADORAS 
queens dominarli 


Este programa permite que voce distribua rainhas de xadrez num 
tabuleiro, mostrando quais os quadrados que elas estào a atacar. O ob¬ 
iettivo é conseguir atacar todos os quadrados com o menor nùmero 
possivel de rainhas. É possivel consegui-Io com apenas cinco rainhas. 


VERSÀO ZX81 

10 DIM B (8,8) 

20 FOR 1 = 1 TO 8 
30 FOR J = 1 TO 8 
40 PRINT AT2 * 1,2 * J + 8; “gH” 

50 NEXTJ 
60 NEXTI 
70 LET P = 2 
80 LET Q = 9 
90 GOSUB 2000 
92 LET P0 = P 
94 LET Q0 = Q 

100 IFINKEYS < > “ ” THEN GOTO 100 
110 IF INKEYS =“”THEN GOTO 110 
120 LET 1$ = INKEYS 
130 IF 1$ = “Q” THEN GOTO 200 
140 IF 1$ = “5” THEN LET 0 = Q-2 
150 IF 1$ = “6” THEN LET P = P + 2 
160 IF 1$ = “7” THEN LET P = P — 2 
170 IF 1$ = “8” THEN LET 0 = 0 + 2 
180 GOSUB 1000 
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185 GOSUB1020 
190 GOTO 92 

-> 200 PRINT ATP, Q + 1; “ Q 

205 LETI = P/2 
207 LET J = (Q — 7) /2 
210 LET B (I, J) = 1 
220 FORT = ITO8 

230 1FB (I,T) = 0THEN LETB (I, T) = ~1 
240 IF B (T, J) = 0THEN LETB (T, J) = -1 
250 NEXTT 

260 FORF=-1TO1STEP2 
270 FORT = -8TO8 
280 LET U = I + F * T 
290 LET V — J + T 

300 IF U < 1 OR U > 8 OR V < 1 OR V > 8 THEN GOTO 320 

310 IFB (U, V) “ 0THEN LETB (U, V) = —1 

320 NEXTT 

330 NEXTF 

340 GOSUB 2000 

350 GOTO 92 

-» 1000 PRINT ATP, O; “ > ” 

1010 RETURN 
1020 PRINT AT P0, 00; 

1030 RETURN 
2000 FORI = 1 TO 8 
2010 FOR J= ITO 8 

2020 IFB (I, J) = -1 THEN PRINT AT 2 * 1,2 * J + 8; 

2030 NEXTJ 
2040 NEXTI 
2050 RETURN 

SE USAR A VERSÀO ZX81 

RUN. Aparece o tabuleiro. Use as teclas das setas para mover o 
cursor sobre o tabuleiro. Se premir “Q” aparece urna rainha no qua- 
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drado, mostrando ao mesmo tempo que quadrados està a atacar. Adi- 
cione outra rainha... continue até conseguir atacar todos os qua¬ 
drados. 


VERSÀO ZX SPECTRUM 

Modifique as linhas seguintes: 

40 PRINT AT 2 * I. 2 * J +8; 
200 PRINT ATP.Q + l;“gQ” 
1000 [apague està linha] 

1020 [apague està linha] 

Adicione algum colorido com: 


1 PAPER 7: INK 0: CLS 
35 PAPER 5+I+J-2* INT ( (I + J) / 2) 
1000 PRINT PAPER 7; ATP.Q;“>” 

1020 PRINT PAPER 7; ATP0,00; 


Defina o gràfico da rainha com: 


1 GOSUB 3000 

3000 DATA 170.170.84.56.56.124. 254. 0 

3010 FOR N = 0 TO 7 

3020 READ X 

3025 POKE USR “Q” + N. X 

3030 NEXTN 

3080 RETURN 


SE USAR A VERSÀO DO ZX SPECTRUM 

Logo após ligar o computador faga GO TO 3000 para definir os 
gràficos e depois RUN. Depois disto faga tal corno para o ZX81. 


4 
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1 PAPER 7: INK S: GL 5 

2 GO SUB 3000 
10 DIM h *13,35 
20 POR i=1 Tu 3 

33 POR j =1 TO 3 . 

35 PRPER 5 + i+ j -2* IN I ( • x +j ' /2 ■ 
4-S PRINT HT 2*i ,2# j+8; " " 

53 NEXT j 
60 NEXT i 
73 LET P =2 
SS LET q=9 
9 © G 0 3 U B £ 3 3 0 
92 LET p3=p 

X33 IP INKEY % < > '* '‘ THEN G0 TQ X3 


U il© TP INKEX$ = ;! ” THEN G 0 !L 







P ,q + l ; i: l” 
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1080 

PRINT PAPER ' 

7; AT 

P , q ; " > 

ISIS 

Kt: ‘ URN 



1020 

PRINT PAPER ‘ 

7; AT 

P0,q0.; :: 

1838 

RETURN 



2000 

FQR i=1 Tu 8 



2018 

POR j=l TO 3 



2028 

IP b L i , J ) =-1 

THE 

N PRINT AT 

H■£ 2 ,, Ht.Ì tuì ' ' + * ' 



2030 

NEXT j 



204-S 

NEXT i 



2050 

RETURN 



3030 

DATA 178,170 

, 34 , 

55,55,124,2 

54,0 

3810 

POR n =S TO 7 



3S20 

READ X 



3025 

POKE USA 1! q" 

+n , x 


3030 

NEXT n 



3040 

RETURN 




NOTAS 





NOTAS 
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O que a Realeza pode fazer também o pode fazer o clérigo 



BISPQS RUIDQSOS 

bishops blatant 


Este programa é semelhante ao das RAINHAS DOMINADORAS 
mas com bispos de xadrez. 


VERSÀO ZX81 

Comece corno na versào do ZX81 das RAINHAS DOMINADO- 
RAS fazendo as modifica?òes seguintes: 

130 IF1$ = "B” THEN GOTO 200 
200 PRINT AT P, Q + 1 ; “ B ” 

220-250 [apague estas linhas] 


SE USAR A VERSÀO DO ZX81 

Paga tal corno fez para as RAINHAS DOMINADORAS excepto 
que agora terà que premir “B” para fixar um bispo. 


VERSÀO ZX SPECTRUM 

Modifique as seguintes linhas na versào do Spectrum das RAI¬ 
NHAS DOMINADORAS: 

130 IF 1$ = “B” THEN GOTO 200 
200 PRINTATP.O + l;“gB” 

220-250 [apague estas linhas] 

3000 DATA 16,24,40,52,60, 60,126,0 
3025 POKE USR “B” + N, X 
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SE USAR A VERSÀO DO ZX SPECTRUM 

Fata GO TO 3000 para definir os gràficos. Após isso, ludo fun- 
dona corno nas RAINHAS DOMINADORAS excepto que usa “B” 
para fixar os bispos. 
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320 NEXT t 
33S NEa ! f 
3 4- S G 0 S U B 2 0 00 
3 —0 G 0 T u y 2 
1000 PRINT PAPER ' 
1010 RETURN 
1020 PRINT PAPER 
1030 RETURN 
2000 FDR i=1 TO 3 
2010 POR J=1 TO 3 
2020 Ir b i i .. j) =-1 
2*i .< 2■£ j +3 ; 

2030 NEXT j 
204-0 NEXT i 
205S RETURN 
3000 DATA 16 ; 24-, 4 


at p,q;” >" 

; hT P0 ; q0.;" :: 
THEN PRINT AT 

S , 52 ? 52 ; 50 .i 12& 


3010 POR n=0 ro 7 
3020 READ X 
3025 P 0 K E U S R * ’ b * * + n , x 
3030 NEXT n 
3340 RETURN 
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NOTAS 
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...e também os Militares 



TORRES DOMINANTES 
roohs rampant 


Este programa funciona tal corno o das RAINHAS DOMINADO- 
RAS (RD) ou o dos BISPOS RUIDOSOS (BR) — mas com torres. 


VERSÀO ZX81 

Comece corno com as RAINHAS DOMINADORAS na versào do 
ZX81 mas modifique para: 

130 IF1$ = “R” THEN GOTO 200 
200 PRINT AT P, Q + 1; “ R” 

260-330 (apague estas linhas] 


SE USAR A VERSÀO DO ZX81 

Fa?a corno para RD e BR mas prima “R” para fixar as torres. 


VERSÀO ZX SPECTRUM 

Modifique as seguintes linhas da versào ZX Spectrum das RAI¬ 
NHAS DOMINADORAS: 

130 IF 1$ = “R” THEN GOTO 200 
200 PRINT AT P, Q + 1; “gR” 

260-330 [apague estas linhas] 

3000 DATA 84,56,56, 56,56,56,124.0 
3025 POKE USR “R” + N, X 


57 




SE USAR A VERSÀO DO ZX SPECTRUM 

Logo após a Iiga?ào fa?a GO TO 3000 para definir os gràficos. A 
seguir RUN e use “R” para fixar as torres. 

Vai precisar de pelo menos oito delas. 
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2000 POR i=i T0 8 

2010 POR j=i TO 8 

2020 IP b(i,j) - -1 THEN FRINT Ri 

2 * i .. 2 *.j 4-8 ; 

2080 NEXT j 
2040 NEXT i 
2350 RETURN 

3003 DATH 84,56 ; 56 , 56 , S5.56,124 
0 

3010 POR n=0 Tu 7 
3020 READ x 
3025 P0 kE U 8 R ’ ' f * ' +n . X 
3330 NEXT n 
3040 RETURN 
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NOTAS 
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Prometo que està é a ùltima variagao 
dos programas anteriores ... 



Neste «puzzle» nào ha mais trabalho. O programa é o mesmo do 
das RAINHAS DOMINADORAS mas o objectivo é diferente: quan- 
tas rainhas se podem colocar no tabuleiro sem que se ataquem umas às 
outras? Consegue por oito? 

Podemos fazer o mesmo para os bispos e para as torres... mas 
acho que agora é melhor fazer algo de novo... 





NOTAS 
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Um problema de divisào , para o por maluco... 


LHJ 

«PUZZLE» DO MACACO 
mortey pus2ie 



Cinco astronautas cairam num asteròide deserto onde apenas ha- 
bita um macaco chamado NYS. O que ha para corner sào inumeros 
cocos. 

Os astronautas pegam em determinada quantidade de cocos e fa- 
zem urna pilha com eles. 

Durante a noite o primeiro astronauta acorda e decide corner me- 
tade dos cocos da pilha. Só que na divisào sobra um coco que eie deci¬ 
de dar ao macaco. 

Pouco tempo depois o segundo astronauta acorda e faz exacta- 
mente o mesmo. De novo existe um coco a mais que eie dà ao macaco. 
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Os terceiro e quarto astronautas fazem exactamente o mesmo. O 
macaco continua a ter a mesma sorte; mas quando chega a vez do 
quinto astronauta eie fica um pouco intrigado porque sobrou apenas 
um coco para eie. Eie acha que havia mais cocos quando foi para a 
cama, na noite anterior, mas corno ainda è madrugada a sua cabega 
nào està a funcionar muito bem. 

Quantos cocos havia no micio? 


VERSÀO ZX81 

-> 10 PRINT “HOW MANY COCONUTS” 

20 INPUT C 
30 GOSUB500 
40 FOR T = 1TO 5 
50 IFC = 1THEN GOTO 700 
60 LET C = C - 1 
70 LET K = INT (C/2) 

80 IF 2 * K < > C THEN GOTO 600 
90 LET C = K 
100 GOSUB500 
110 NEXTT 
120 PRINT 
130 PRINT 

140 PRINT “TOO MANY” 

150 STOP 

500 PRINT 

510 PRINT 

520 FORI =1 TOC 

530 PRINT 

540 NEXTI 

550 RETURN 

600 PRINT 

610 PRINT 

620 PRINT “DISAPPOINTED MONKEY” 
630 STOP 
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700 PRINT 
710 PRINT 

720 IF T = 5 THEN PRINT “THAT “ ” S RIGHT” 

730 IF T < > 5 THEN PRINT “NOPE, TOO SMALL” 

SE USAR A VERSÀO DO ZX81 

RUN. Pode comegar a adivinhar o nùmero de cocos. O com- 
putador percorre todos os acontecimentos da noìte, mostrando no 
écran as pilhas de cocos e verifica se toda a gente fica com a sua parte. 
Se voce tiver acertado o computador avisa. Se nào tiver acertado o 
computador responde-lhe com um incentivo para continuar. 


VERSÀO ZX SPECTRUM 

Modifique estas linhas: 

10 PRINT "How many coconuts?” 

720 IFT = 5 THEN PRINT FLASH 1 ; “THAT S RIGHT!!!!": 
GOTO 800 

Adicione estas: 


740 STOP 

800 FORI = 1 TO 50 

810 BEEP . 1.40 * (.5 - RND): BORDER 7 * RND 
820 NEXTI 

Modifique também està: 

530 PRINT "gN”: 

E adicione também estas: 

1 GOSUB 1000 

1000 DATA 28, 54,122, 118,252,248.112,0 
1010 FOR N = 0TO 7 


5 
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1020 READ X 
1030 POKE USR “N” + N, X 
1040 NEXTN 
1050 RETURN 

SE USAR A VERSÀO DO XX SPECTRUM 

Faga GO TO 1000 para definir graficamente os cocos e depois 
RUN. Além disso as instrugòes sào as mesmas que para a versào do 
ZX81. 




in 




[{t 

m 

m 

pi 

Ì0Ì 

IMa 

... 


Quantos cocos':’ 




############### 

########## 

########### 


De r« a s i a d o s 




I 

il 

si: 

ili 


WmmmM 
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r“: 0 

H H -L N : 

"naca co des-ap 

630 

:=,7nP 


730 

OD TWT 


710 

PRINT 


-? Q ;7; 

T w -r — 

F THFr*i h- : i-! ? TN i r* 

ti S X s 

CORRE 

3T 7SSIMOM ! ‘ " 

OUU 



7:33 

Tr t < 

>5 THEH PRINT 

”7 ,-i •■?! 

STOP 


300 

1“ UH i 

=1 TO 53 

810 

BEEP 

.1 ; 40* C,5-RNDJ 

7*R 

ND 


32S 

NEXT 

1 

1000 

DPTS 

23 ; 54,122,113 

112 , 

0 


1310 

POR n 

=0 TU 7 

1323 

REP.D 

x 


1030 POKE USR ”n"+n J .X 
1040 NEXT n 
1050 RETURN 


H 1 ; :: 

: G 0 T 0 

Po U C 0 s “ 
: 5ORDER 
252 .. 243 .. 


NOTAS 
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NOTAS 



Junte os animais amigavelmente: 



ENCADEAMENTQ ECOLÒGICO 

ecologica! chain 



Voce tem très caes, très gatos, très pàssaros e très minhocas. 
Alinhe-os de modo que nenhum cào esteja a seguir a um gaio, nenhum 
gaio a seguir a um pàssaro e nenhum pàssaro a seguir a urna minhoca 
(por razdes óbvias se assim nào for eles zangam-se) — e nào podem es- 
tar dois gatos juntos-, nem dois càes, nem dois pàssaros, nem duas mi¬ 
nhocas. Mesmo urna minhoca tem o seu orgulho. 
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VERSÀO ZX81 


10 DIM K (4) 

-» 20 PRINTAT3,10;“DDDOD” 

-h> 30 PRINT AT 4,10; “C □ C □ C” 

-* 40 PRINT AT 5, 10; “B □ B □ B” 

-* 50 PRINT AT 6,10; “W □ W □ W” 

60 LET C = 0 
70 LET Y$ = “G” 

-> 100 PRINT AT0.0;“CHOOSEWHICH CREATURE” 

-> 102 INPUT X$ 

104 PRINT AT0,0;“[21espacosj” 

110 LET N = CODE X$ — 37 — 22 * (X$ = “W”) 

120 LET K (N) = K (N) + 1 
130 IF K (N) > 3 THEN GOTO 500 
140 PRINT AT 12, 6 + 2 * C; X$ 

150 LET C = C + 1 

160 PRINT AT 7 - N, 16 - 2 * K (N); 

180 IF ABS (CODE X$ - CODE Y$) < 2 THEN GOTO 600 
19(4 LET YS = X$ 

200 IFC = 12 THEN GOTO 400 
210 GOTO 100 

-> 400 PRINT AT 0,8; “WELL DONE” 

420 STOP 

500 PRINT AT 0, 8; “ILLEGAL MOVE” 

510 PAUSE 50 

520 PRINT AT0,8; “ [12espa?os ] ” 

530 GOTO 100 

600 PRINT AT 0.8; “AAAAAAAAAGGGGGGGHHHHH” 

SE USAR A VERSÀO DO ZX81 

RUN. Os animais disponiveis sào mostrados pelas seguintes ini- 
ciais C — gato, D — cào, A — minhoca e B — pàssaro. Escolha com 
qual quer comefar premindo a respectiva letra. Isso aparecerà no 
écran. Continue: tenha atenqào às mensagens que vào aparecendo. 
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VERSÀO ZX SPECTRUM 

Modifique as linhas seguintes: 

20 FOR 1 = 3 TO 6 

30 PRINT AT1,10; INKI; CHR$ (150 - I) + + 

CHR$ (150 - I) + + CHR$ (150 - I) 

40 NEXTI 

50 [apague estas linhas] 

100 INPUT “Choose which creature”; X$ 

102 [apague estas linhas] 

104 [apague estas linhas] 

110 LET N = CODE X$ - 96 

140 PRINT AT 12,6 + 2 * C; INK 7 - N; CHR$ (CODE X$ + 47) 
400 PRINT AT 0,8; FLASH 1 ; “Well Done!” 

Adicione estas: 

410 BEEP .3.0: BEEP .3.4: BEEP .3,7: BEEP 1.5.10 
610 FORI = ITO 10 
620 BEEP 1/15.-I 
630 NEXTI 

Defina os caracteres gràficos dos animais com: 

1 GOSUB 1000 

1000 DATA 60. 66. 130.28.32.34.28.0.16,112. 56.28. 

30. 8. 28. 0. 74. 122, 122. 50.250.254,124. 

0.80. 118.242.126.62.34.102,0 
1010 FORT-ITO 4 
1020 FOR N = 0 TO 7 
1030 READ X 

1040 POKE USR CHR$ (T + 143) + N. X 
1050 NEXTN 
1060 NEXTT 

1070 RETURN 610 STOP 
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SE USAR A VERSÀO DO ZX SPECTRUM 

Inicie com GO TO 1000 para definir os gràficos dos animais. De¬ 
pois fa?a RUN e quando lhe perguntar que animai quer alinhar intro- 
duza: 

A para a minhoca 
B para pàssaro 
C para gaio 
D para cao 

tudo o resto é corno na versào do ZX81. 
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200 IF C=12 THEN 60 TO 400 

4-00 fRInT H! 0 .i o j FlhoH 1 ,ì "uons 
£ g u i u ! ” 

410 BEEP .-3,0: BEEP .3,4: BEEP 
=3,7: BEEP 1=5,10 
420 STOP 

500 P R 1 NT Hi 0 , S ; " M 0 V i fn £ n 10 p f 0 
i b i d 0 :: 

510 PAUSE 0 

520 PAINT PT 0,3;" 

530 GO TO 100 

500 P RINT hT 0,3; HHHHHHHHHlr-Glf-G 

GGGHHHHH 1 ' 

510 STOP 

62© BEEP i/15 ,-i 

530 NEXT i 

1000 DPTfi 60,5S,13S, 2S,32,34,23 . 

O,15,112,55,28,30,8.23,0,74,122, 

122,50,250,254,124,0,80,113,242, 

125,52,34,102,0 

1010 POR t =1 TO 4 

1S20 POR n =0 f0 7 

1033 READ X 

104S POKE USR CHR$ tt+143)+n.X 
1050 NEXT rt 
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NOTAS 
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Est e é multo velho, mas multo engragado 
e graficamente multo bonito... 



TORRE DE HANOI COM BOLOS 


tower o f Hanoi uiith pancakes 



Voce tem tres travessas. Numa tem um monte de bolos de diversos 
tamanhos 1, 2, 3, 4... amontoados de modo que os de baixo sejam 
maiores do que os de cima. O objectivo é transferir essa pilha de urna 
travessa para outra tendo em ateneào o seguinte: 

a) Movendo um bolo de cada vez; 

b) Colocando o bolo numa travessa vazia ou em cima de um bolo 
maior. Àparte estas regras voce pode fazer quantas tentativas quiser. 


VERSÀO ZX81 

10 LETE$ = “■■■■■■ IBBI 

15 LETF$ = “□□□□□□□□□□□” 

18 LET G$ = “gH gH gH gH gH gH gH gH gH gH” 
^ 20 PRINT AT 0,0; “INPUT SIZE” 

22 INPUT S 

24 PRINT AT 0,0; “ [10espa?os] ” 
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25 LET V = INT ( (11 - S) / 2 ) 

30 DIM D$ (S, S + 2) 

40 FORT= STO 1STEP-2 

50 LETD$(T) = F$(TO(S-T)/2) + E$(TOT) 

60 IFT < STHEN LETD$ (T + 1) = F$ (TO (S - T) /2 - 1 ) + “g8” 
E$ (TO T) + “g5” 

70 NEXTT 

80 IF S = 2 * INT (S/2) THEN LET D$ (1) = 

F$ (TO (S — 2) / 2 ) + “g8 g5” 

100 PRINT AT 16,0; G$ + + G$ + + G$ 

110 FORI = ITO 3 

120 PRINT AT 17, 11 * I — 6; I 

130 NEXTI 

200 FOR I = 1 TO S 

210 PRINT AT 15 - S + I, V; D$ (I) 

220 NEXTI 
300 DIM A (3, S) 

310 FOR I = 1 TO S 
320 LET A(1,I) — S — I + l 
330 NEXTI 
340 DIM H (3) 

350 LETH (1) = S 

500 PRINT AT 0,0; “MOVE FROM” 

502 INPUT F 

504 PRINT AT 0,0; “MOVE TO □ □” 

506 INPUT G 

508 PRINT AT 0,0; “ [9 espa?os ] ” 

511 GOTO 1000 

512 LET R = A (F, H (F) ) 

514 LET A (F, H (F) ) = 0 

516 LET A (G, H (G) + 1) = R 
520 LET H (F) = H (F) - 1 
530 LET H (G) = H (G) + 1 
540 LET X — R + 1 + .5* (10 — R) 



545 IF X > S + 2 THEN LET X = S + 2 

550 PRINT AT 15 - H (F), 11 * F - 11 + V; F$ (TO X); 

AT16 - H (G), 11 * G - 11 + V; D$ (R) (TOX) 

-> 555 PRINT AT 16,0; G$ 

557 IF H (2) = S OR H (3) = S THEN GOTO 1200 
560 GOTO 500 

14900 IFH(G) = 0 THEN GOTO 512 

1005 IF H(F) = 0 THEN GOTO 500 

1010 IF A (F, H (F) ) > = A (G, H (G) ) THEN GOTO 500 

1020 GOTO 512 

1200 PRINT AT 1,10: “SUCCESS” 

SE USAR A VERSÀO DO ZX81 

Comece com RUN. Espere que a torre fique desenhada. Escolha o 
bolo da pilha que vai transferir e para onde premindo os respectivos 
numeros. Continue até conseguir transferir a pilha toda para outra tra¬ 
vessa. 

VERSÀO DO ZX SPECTRUM 

Modifique as seguintes linhas 

18 [apague està linha] 

20 INPUT “Size?”;S 
22 [apague està linha] 

24 [apague està linha] 

60 IFT < STHEN LETD$ (T + 1) = F$(TO(S - T)/2-1) + “g5” + 
E$(TOT) + “g5c” 

80 IF S = 2 * INT (S/2) THEN LET D$ (1) = 

F$ (TO (S — 2) / 2 ) + “g5 g5c” 

100 PRINT AT 16,0; INK 4; E$ + + E$ + + E$ 

500 INPUT “Move from?”;F 
502 [apague està linha] 

-504 INPUT “Move to?”;G 
506 [apague està linha] 
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508 [apague està linha] 

555 PRINT AT16,0; INK 4; E$ 

1200 PRINT AT 1,10; FLASH 1 ; “Success!” 

Adicione estas agora: 

1210 FORI = 1TO 80 

1220 BORDER7 * RND 

1230 BEEP 2/(20 + I), 1/2 + 10 * (RND - .5) 

1240 NEXTI 

SE USAR A VERSÀO DO ZX SPECTRUM 

Proceda corno na versào do ZX81. 
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320 LET a (1, i ) =£- 1 +i 

330 NEXT i 

340 DIM h(33 

350 LET h (13 =S 

533 INPUT “De. ondfiV 

504 INPUT ”Ps ra onde" 

511 GO TO 1300 

512 LET r =a (f,h C f 3 3 
514 LET a (f,h (f 3 i =0 
516 LET 5 (g ,h (93 +13 =i 
520 LET h ( f3 =h ( f J -1 
530 LET h Cg) =h (9 3 +1 
54S LET x = r +1+- 5*(10 ■ 
545 IF x>S THEN Lei : 
550 P RI NT RT 15 - h ( f 3 

f$■ TO X3 ;RT 16-h cg) , 
6 ir 3 C TO x 3 
555 PRINT RT 15,0; li 


557 IF h 
TO 1230 


(2 3 =S OR h (33 =: 


. 1 + V } 

.+v ; d 


IH GO 


550 

1000 

1005 


h ( ? 3 =0 THEN G 
a ( f .h (f33 > =a ( 
503 


i ZfGl&t 





79 



NOTAS 



80 




Permuta de animais 

usando o movimento de cavalos de xadrez 


iQ 

CAVALCANDO 
sederai timas hnightky 



Para comegar, duas espécies de animais estào colocados nos can- 
tos de um quadrado de 3 por 3: 

ADA 
□ □ 

BOB 

O objectivo é trocar os As pelos Bs. Qualquer animai pode ir 
para um espago branco movendo-se tal corno o cavalo num tabuleiro 
de xadrez (dois passos para a frente e um para o lado). 

VERSÀO ZX81 


6 


10 DIM A (3,3) 

20 LET A (1,1)= 1 
30 LET A (1, 3) = 1 
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40 LET A (3,1) = 2 
50 LET A (3,3) =2 
60 LET A (2,2) = 3 
70 LET C = 1 
100 DIM X (8) 

110 DIM Y (8) 

121 LET Y (1) = 14 

122 LET Y (2) = 18 

123 LET Y (3) = 22 

124 LET Y( 4) = 22 

125 LET Y (5) = 22 

126 LET Y (6) = 18 

127 LET Y (7) = 14 

128 LET Y (8) = 14 

131 LET X (1) = 7 

132 LET X (2) = 7 

133 LET X (3) = 7 

134 LETX (4) = 11 

135 LETX(5) = 15 

136 LETX(6) = 15 

137 LETX(7) = 15 

138 LET X (8) = 11 
200 GOSUB 1000 

210 PRINT AT X (1), Y (1); 

700 PRINT AT 0,0; “MOVE WHICH” 

702 INPUT 1$ 

710 IFI$<>“”THEN GOTO 719 
715 GOSUB 1100 

718 GOTO 700 

719 LET C0 = C 

720 PRINT AT 0,0; “WHERE □ □□□□” 
722 INPUT 1$ 

725 PRINT AT 0,0;“ [10 espacos]” 

730 IF1$ < > “ ” THEN GOTO 750 
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735 GOSUB 1100 
740 GOTO 720 
750 LET CI = C 

760 IF ABS (C0 - Cl) = 3 OR ABS (C0 - Cl) = 5 THEN GOTO 2000 
770 PRINT AT 0,0; “ILLEGAL” 

780 PAUSE 50 

790 PRINT AT 0,0; “ [7 espacos ] ” 

800 GOTO 700 
1000 FOR 1=1 TO 3 
1010 FOR J = 1 TO 3 
1020 IF A (I, J) = 0 THEN LET 0$ = “H” 

1030 IF A (I, J) = 1 THEN LET Q$ = “A” 

1040 IF A (I, J) = 2 THEN LET Q$ = “B” 

1050 IF A (I, J) = 3 THEN LET Q$ = 

1060 PRINT AT 5 + 3 * 1,12 + 3 * J; 0$ 

1070 NEXTJ 
1080 NEXTI 
1090 RETURN 

1100 PRINT ATX(C), Y(C); “D” 

1110 LET C = C + 1 

1120 IF C > 8 THEN LET C = 1 

1130 PRINT ATX(C),Y(C);“*” 

1140 RETURN 
2000 LET X 0 = (X (C0) — 3) / 4 
2010 LET Y0 = (Y (C0) — 10) / 4 
2020 LET XI = (X (Cl) - 3) /4 
2030 LET Y1 = (Y (Cl) - 10) / 4 
2040 LET R - A (X0, Y0) 

2045 IFR = 0THEN GOTO 770 
2050 LET A (X0, Y0) = A (XI, Yl) 

2060 LET A (XI, Yl) = R 
2070 GOSUB 1000 

2080 IFA (1,1) = 2 AND A (1,3) =2 AND 

A (3,1) - 1 AND A (3,3) = 1 THEN GOTO 3000 
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2100 GOTO 700 

3000 PRINT AT 0, 8; “GOTCHA’ 


SE USAR A VERSÀO DO ZX81 

RUN. O quadrado aparece desenhado com os-animais designados 
por A e B. Um asterisco actua corno cursor. Se premir “NEWLINE” 
movimenta-se no sentido dos ponteiros do relógio repetindo-se conse¬ 
cutivamente até conseguir colocar o asterisco no lugar de um. A posi¬ 
lo do cursor define que animai vai ser movimentado. Voce seleccio- 
narà para onde o animai vai, usando novamente o cursor. O movimen¬ 
to està completo e pode continuar. 


VERSÀO ZX SPECTRUM 

Modifique estas linhas 

700 INPUT “Move which?”; 1$ 

702 [apague està linha] 

720 INPUT “Where?”;I$ 

722 lapague està linha] 

725 [apague està linha] 

1030 IF A (I, J) = 1THEN LET Q$ = “gA” 
1040 IF A (I, J) = 2 THEN LET Q$ = “gB” 
3000 PRINT AT 0, 8; FLASH 1 ; “Gotcha! ! ! !” 


E adicione estas: 


3010 FORI =1TO80 

3020 BORDER 7 * RND 

3030 BEEP 1/(10 + I), 1/2 + 7 * (RND - .3) 

3040 NEXTI 

3050 STOP 


Defina os caracteres gràficos para “gA”e “gB” com os seus ani- 
mais favoritos. Pode usar o cào e o gato do «puzzle» “ENCADEA- 
MENTO ECOLÒGICO” onde eles estào em POKE corno “C” e “D” 
mas pode modificà-los para “A” e “B” corno segue: 
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1 GOSUB 4000 

4000 DATA 74,122,122,50,250,254,124,0, 

80,118,242,126,62,34,102,0 
4010 FOR N = 0 TO 7 
4020 READ X 
4030 POKE USR “A” + N, X 
4040 NEXTN 
4050 FOR N = 0 TO 7 
4060 READ X 
4070 POKE USR “B”+ N,X 
4080 NEXTN 
5000 RETURN 

SE USAR A VERSÀO DO ZX SPECTRUM 

GO TO 4000. Depois RUN. Funciona tal corno na versào do 
ZX81 mas é muito mais bonito. 
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SUB 1003 


£ 10 PR INT PT X (1 } , y i 1 ) ; " * “ 

700 i n P UT 11 r-i o v £ r q u al? " ; i s 

710 IP i $ < > " " THEN GQ TO 713 

715 GO SUB 1100 

71S GO TO 700 

713 LET C3 =0 

720 INPUT "On de? ";i$ 

730 Ir i $<>'"' THEN GO TO 753 
735 GO SUB 1100 
7 43 G 0 T 0 ? £ 3 
750 LET c1 — C 

760 IF RBS (C0-C1)=3 OR RBS C C» 
-C1)=5 THEN GO TO 2000 
770 PR INT hT 0 ,3''negali " 

7 3O PHU S E 50 

790 PRINT PT 0,0;" 

300 GO TO 700 
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5 

30-4.0 NEXT i 
3050 STOP 

4000 DhTh 74 122,122,50 ; 250 , H54 

124 , S : 80,118 , 242,126,82,34,102 , 

4010 POR n =8 TD 7 

4020 RERD x 

4 0 3 0 P 0 K E U 5 R ! * a ' * + n , X 

4040 NEXT n 

4050 hOR n=0 ì 0 7 

4S60 RERD X 

4070 POKE USR "b"+n,x 

4080 NEXT n 

5000 RETURN 
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E finalmente outra permuta de animais: 



ANIMAIS EM DEGRAUS 
beasts ori thè steps 



Cinco gatos e cinco càes sentados em doze degraus de urna escada. 
Voce pode mover qualquer par de animais adjacentes a um espa?o va- 
zio para esse mesmo espa^o. Repita isto até conseguir colocar os cinco 
gatos nos cinco degraus de cima e os cinco càes logo a seguir, deixando 
os ultimos dois degraus de baixo vazios. 


VERSÀO ZX81 

10 LET A$ = “ [32 inverse spaces] ” 
-» 15 LET B$ = “AB AB ABAB □ □” 
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20 PRINT AT 5,0 
30 FORI = 1TO 12 
40 PRINT A$ (TO 15 + I) 

50 NEXTI 

60 PRINT A$ + A$ + A$ + A$ 

70 FOR 1 = 1 TO 12 
80 PRINT AT 5 + 1,12 + I + (1 < 10); I 
90 NEXTI 
95 LET P = 11 
100 FOR I = 1 TO 5 
110 PRINT AT4 + 2 * 1,14 + 2 * I; “A” 

120 PRINT AT 5 + 2 * 1,15 + 2 * I; “B” 

130 NEXTI 

200 PRINT AT 0,0; “MOVE WHICH” 

201 INPUT N 

202 IF N < 1 OR N > 11THEN GOTO 200 

203 PRINT AT 0,0; “ [10 e$.pa V 'Os | " 

205 LET X$ = B$ (N) 

206 LET Y$ = B$ (N + 1) 

208 IF X$ = OR Y$ = THEN GOTO 500 

210 PRINT AT 5 + N, 15 + N; AT 6 + N. 16 + N; 
AT5 + P, 15 + P; X$: AT6 + P, 16 + P; Y$ 

211 LET B$ (N) = 

212 LET B$ (N + 1) = 

213 LET B$ (P) = X$ 

214 LET B$ (P + 1) = Y$ 

220 LET P = N 

225 IF B$ = “AAAAABBBBB □ □” THEN GOTO 1000 
230 GOTO 200 

500 PRINT AT 0,0; “ILLEGAL” 

510 PAUSE 50 

520 PRINT AT 0,0; “ [7 espagos] ” 

530 GOTO 200 

1000 PRINT AT 1,8; “DONE IT” 



SÉ USAR A VERSÀO DO ZX81 

RUN. Escolha o primeiro dos animais a ser movimentado pelo 
nùmero do degrau correspondente e assim sucessivamente. Tudo o res¬ 
to é automàtico. 

VERSÀO ZX SPECTRUM 

Modifique estas linhas: 

15 LET B$ = “gA gB gA gB gA gB gA gB gA gB □ □” 

110 PRINTAT4+ 2*1, 14 + 2* I;“gA” 

120 PRINT AT 5 + 2 * 1,15 + 2 * I; “gB” 

.200 INPUT “Move which? " ; N 
201 [apague està linha] 

203 [apague està linha] 

225 IF B$ = “gA gA gA gA gA gB gB gB gB gB □ □” 

THEN GOTO 1000 

1000 PRINT ATI, 8 ; FLASH l;“DONE IT!” 

Adicione estas: 

1020 FOR I = 1 TO 30 

1030 BORDER 4: BEEP . 1,12: BORDER 2: BEEP .1,0 
1040 NEXTI 

Defina as caracteres gràficos dos animais com: 

2000 DATA 37,61,61,25,125,127,62,0, 

40,59, 121,63,31,17,51,0 
2010 FOR N = 0 TO 7 
2020 READ X 
2030 POKE USR “A” + N, X 
2040 NEXTN 
2050 FOR N = 0 TO 7 
2060 READ X 
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2070 POKE USR “B” + N, X 
2080 NEXTN 


(Estes numeros de linhas sào precisamente metade dos utiiizados 
para o «puzzle» CAVALCANDO. Se nào se importa utilize os nume- 
ros de linha de CAVALCANDO e veja o que acontece.) 


SE USAR A VERSÀO DO ZX SPECTRUM 

Após a ligacào fa?a GO TO 2000 ou RUN 2000. RUN. Tudo o 
resto é corno na versào do XZ81. 
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00 PRINi Hi s + i , Ih i- i h- Ci <i0) J i 



. 1_ R 4-p ; y É 


2Ì2 

213 

214 
220 
22 b 

0 TO 

230 
300 
510 
520 
530 
1000 
egu i u I " 

1020 FOR i=1 TO 30 
1030 BORDER 4: SEEP .1,12: BEEP 
. 1,0 

1040 NEXT i 
1050 S! UH 



LbT b$(n)=“ " 

LET fa$ln + i)=" “ 

LET b$Cp 5 =X $ 

LET b$ <p +1) =y $ 

IF b $ = " : ' THE N G 

1000 

GG TO 200 

PRINT RT 0,0 ;"Ilegal" 

PfiUSE 50 
PRINT RT 0,0;“ 
fin TO 200 

PRINT RT l,3j FLASH l;"Cons 
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ATEN£ÀO! 


ESTES «PUZZLES» SÀO SÓ PARA O 
SPECTRUM 


Aqui estào alguns programas que funcionam apenas no ZX Spec- 
trum. Bem, acho que devo urna explica?ào por ter posto neste livro ai- 
guns programas que só correm no ZX Spectrum. A justifica^ào é que 
talvez os possuidores de ZX81 por causa destes programas vào jà a 
correr comprar um ZX Spectrum o que me vai permitir vender muito 
mais livros destes. Pode sonhar-se nào pode? 
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Aqui està um velho «puzzle» favorito 

com alguns pormenores 

que talvez ainda nào tenha visto 



SOLITÀRIO 

SDliiaire 


Este é o jogo normal do solitàrio. As cavilhas sào mostradas corno 
asteriscos e os quatro cantos onde nào se pode jogar aparecem com Os 
maiusculos. As linhas estào referenciadas da a a g no écran e as colunas 
de 1 a 7. 

O computador pergunta-lhe qual o movimento de e para onde. 
Responda-lhe introduzindo primeiro a letra e depois o algarismo. Des¬ 
te modo pode mover-se de f4 para o centro do quadrado, d4. 

Para isso premiria: 

f4 (ENTER) d4 (ENTER) 

e o computador movimentaria as cavilhas por si. Atengào! eie dà conta 
quando voce fizer batota! 

Para o caso de ainda nào estar familiarizado com este jogo aqui 
fica um pequeno resumo das suas regras: 

1 — O objectivo do jogo é conseguir retirar todas as cavilhas me- 
nos urna do tabuleiro. 

2 — Um movimento permitido consiste em pegar numa cavilha e 
corner urna cavilha adiacente (verticalmente ou horizontalmente mas 
nào diagonalmente) saltando para um espago em branco. A cavilha 
que foi comida sai do tabuleiro. 

10 LET n = 32 

20 LET getmove = 1000: LET testmove = 2000 
30 LET makemove = 3000 
40 FOR r = 4 TO 16 STEP 2 
50 FOR c = 9 TO 21 STEP 2 
60 PRFNT PAPER 5; AT r, c; “O” 

70 NEXTc 
80 NEXTr 

100 FOR c = 13 TO 17 STEP 2 


7 


97 




110 FOR r = 4 TO 16 STEP 2 
120 PRINT PAPER 6; AT r. c; 

130 NEXTr 
140 NEXTc 

150 FOR r = 8 TO 12 STEP 2 
160 FOR c = 9 TO 21 STEP 2 
170 PRINT PAPER 6: AT r. c; 

180 NEXTc 
190 NEXTr 

200 PRINT PAPER 6; OVER 1; AT 10. 15; 

210 FOR r = 4 TO 16 STEP 2 
220 PRINT AT r, 7; CHR$ (r/2 + 95) 

230 NEXTr 

240 FOR c = 9 TO 21 STEP 2 

250 PRINT AT 18. c; CHR$ (c/2 + 44) 

260 NEXTc 

270 GO SUB getmove 

280 GO SUB testmove 

290 IF NOT legai THEN PRINT AT 0.0; “Illegal Move!!": GO TO 270 

300 PRINTAT 0 , 0 ;“DaaODDDnDaDOOD” [14espav'os] 

310 GO SUB makemove: LET n = n - 1 

320 IFn>l THEN GOTO 270 

330 PRINT AT 0,0; “You've done it!” 

340 GOTO9999 

1000 INPUT “from to:”; f$. t$ 

1010 LET rf = 2 * (CODE f$ (1) - 95) 

1020 LET cf = 2 * (CODE f$ (2) - 45) + 1 
1030 LET rt = 2 * (CODE t$(l) — 95) 

1040 LET et — 2 * (CODE t$ (2) - 45) + 1 
1050 RETURN 

2000 LET legai = 1 

2010 IF SCREENS (rf, cf) < > THEN LET legai = 0 
2020 IF SCREENS (rt. et) < > THEN LET legai = 0 
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2025 IF SCREENS ( (rf + rt) / 2, (cf + et) / 2) < > 

THEN LET legai = 0 

2030 IF ABS (rf - rt) = 4 AND cf < > et THEN LET legai = 0 

2040 IF ABS (cf - et) = 4 AND rf < > rt THEN LET legai = 0 

2050 IF ABS (rf - rt) < > 4 AND rf < > rt THEN LET legai = 0 

2060 IF ABS (cf - et) < > 4 AND cf < > et THEN LET legai = 0 

2070 RETURN 

3000 PRINT PAPER 6; OVER 1 ; AT rf. cf; ‘V 
3010 PRINT PAPER 6; AT rt. et; “*” 

3020 PRINT PAPER 6; OVER 1 ; AT (rf + rt) / 2, (cf + et) / 2; 

3030 RETURN 

Existem outras versòes deste jogo nas quais as regras para remo¬ 
ver as cavilhas sào as mesmas, mas o nùmero delas e as suas posicòes 
de partida diferem. 

Urna das mais simples é a «ESTRADA LATINA». Voce pode ge- 
rar està versào modificando as linhas 10, 120 e 170 conio segue; 

10 LET n = 6 

120 PRINT PAPER 6; ATr,c;“CT 
170 PRINT PAPER 6; AT r. c; 

E substitua a linha 200 por: 

200 GO SUB 4000 
E adicione està sub-rotina 

4000 FOR r = 6 TO 12 STEP 2 
4010 PRINT PAPER 6; ATr, 15;“*” 

4020 NEXTr 

4030 PRINT PAPER 6; AT 8,13;“*” 

4040 PRINT PAPER 6; AT 8,17;“*” 

4050 RETURN 

Para fazer a versào da «ESTRADA GREGA» fa?a exactamente 
as mesmas modificagòes mas substitua a totalidade da sub-rotina da li¬ 
nha 4000 por està: 
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4000 FOR r = 6 TO 14 STEP 2 
4010 PRINT PAPER 6; AT r, 15; 

4020 NEXTr 

4030 FOR c = 11 TO 19 STEP 2 
4040 PRINT PAPER 6; AT 10, c;“*” 

4050 NEXTc 
4060 RETURN 

E ponha assim a linha 10: 

10 LET n = 9 

Finalmente aqui està o «quadrado inclinado» corno é conhecido. 
Voce vera quando eie estiver desenhado! 

Pegue no programa originai e adicione as linhas seguintes: 

201 PRINT PAPER 6; OVER 1; AT 4,13; 

202 PRINT PAPER 6; OVER 1 ; AT 4,17; 

203 PRINT PAPER 6; OVER 1; AT 8,21 ; 

204 PRINT PAPER 6; OVER 1; AT 12,21; 

205 PRINT PAPER 6; OVER 1; AT 16,17; 

206 PRINT PAPER 6; OVER 1 ; AT 16,13; 

207 PRINT PAPER 6; OVER 1;AT 12,9;“*” 

208 PRINT PAPER 6; OVER 1; AT8,9; 

Agora modifique a linha 10 para: 

10 LET n = 24 
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18 LET n =32 

28 LET gel fii 0Ve=i008 : LET t eSt Tft 
ove=2088 

0 LcT rfi e K e ri o v e =0000 
48 POR r =4 Tu 16 STEP 2 
SS. POR C =9 TG 21 STEP 2 
68 PRINT PAPER 5; AT f , c ; ”O i! 

78 NEXT c 
88 NEXT r 

180 POR c =13 TO 17 STEP 2 
US POR fs4 TO 15 STEP 2 
120 PRINT PhPER 5 ;RT r,c; 

130 NEXT r 
140 NEXT c 
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288 PRINT 
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1050 RtTURN 

Ilil IF : SCrIenÌ*C f f ,Cf) <>”*" THE 

2020 : IF “ IcReIn È ( r t C t " THE 

H LET lega 1=0 . . . 

P025 IF SCkEhNS i i~ t '■ - ‘ : '* 

ti 2 ì <•>'“*" THt-N LtT l e g a 1=0 _ 

2030 1F BB5 i r ? - r t ) =4- BNU c r < ■- ■- 

THEN LE ? t £ 9 a L =0 . . . , , .. t 

204-0 IF fi B 5 (Ct-Ct.«=4- fiND rh/it 

THEN LET lega L =0 . . _ f ,, 

2050 IF BBS (rr-r 3 \ >4- AND - = 
t THEN s ET Lega 1=0 
S 060 IF flB5 i.c f-ct) < >4. AND eroe 

t THEN LET LegsL=0 

2070 RETURN _ _ _. . _ T , 

3000 PRINT PfiPER t>; OUEH !.■*> 1 r 

3013 PRINT PAPER 6 ; BT r t , C t 5"*’; 
3020 PRINT PfiPER 5; UUtH i,H; u 
f 4 - r t ' / 2 . ì C f 4‘ C t /2 ) ; " f 
3030 REtURN 
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Quanto tempo demora a desenvencilhar letras? 



ANAGRAMAS CONTRA-RELÓGIQ 
anagrams against thè ci neh 


O computador mostra um anagrama de urna palavra de 10 letras e 
cometa a contar desde 9999 até 0. Demora cerca de 50 segundos a fazer 
isso. Voce tem que resolver o anagrama neste tempo. Logo que intro- 
duza a primeira letra o relógio para. Mas nào tente utilizar està facili- 
dade para aumentar o tempo de pensar porque tem apenas urna hipóte- 
ce para colocar a primeira letra e nào poderà apagà-la depois. 


1 LET cont = 350: LET end - 370 

2 LET delay = 30 

3 LET pause = 1000 

4 LET begin = 90 

5 LET clear = 2000 

10 DATA “disability” 

11 DATA “indefinite” 

12 DATA “perfidious” 

13 DATA “improbable” 

14 DATA “practising” 

15 DATA “caretakers” 

16 DATA “medicament” 

17 DATA “reciprocai” 

18 DATA “procedures” 

19 DATA “elementary” 

20 DATA “regardless” 

21 DATA “algorithms” 

22 DATA “traversing” 

23 DATA “represents” 

24 DATA “preciously” 


103 




25 DATA “completing” 

26 DATA “subroutine” 

27 DATA “inversions” 

28 DATA “cryptogram” 

29 DATA “statements” 

30 DIM w$ (10) 

90 RANDOMIZE 

100 RESTORE (INT (RND * 20) + 10) 

110 READ w$ 

115 LET x$ = w$ 

120 FOR i = 1 TO 20 
130 LET p = INT (RND * 10) + 1 
140 LET q = INT (RND * 10) + 1 
150 LET t$ = w$ (p) 

160 LET w$ (p) = w$ (q) 

170 LET w$ (q) = t$ 

180 NEXTi 

190 PRINT AT2,2; “Can you solve this anagram?” 

200 PRINT AT 6,10; w$ 

210 PRINT AT 10,2 ; Your time starts now” 

215 PRINT AT 17,10; “-” 

220 FOR i = 999 TO 0 STEP -1 

225 IF i > 99 THEN PRINT AT 10,25; i: GO TO 230 

226 IF i > 9 THEN PRINT AT 10,25; i: GO TO 230 

227 PRINT AT 10,25; “□□”;! 

230 LET c$ = INKEY$ 

240 IF c$ = “ ” THEN GO TO cont 
250 LET w$ (1) = c$ 

260 PRINT AT 16,10; w$ (1) 

265 GO SUB pause 
270 FOR p = 2 TO 10 
280 LET c$ = INKEY$ 

290 IF c$ = “ ” THEN GO TO 280 
300 LET w$ (p) = c$ 
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305 PRINT AT16, p + 9; c$ 

310 LET c$ = “ ” 

315 GO SUB pause 
320 NEXTp 

330 IFw$ = x$ THEN PRINT AT20,2; “Weli done!!!”: GOTO end 


340 PRINT AT20,2; “Wrong! □ □ The word was.□□□□□□ 

FLASH l;x$: GOTO end 
350 NEXTi 

360 PRINT AT20,2; “Out of time . . .The word was-□□□”; 


FLASH 1; x$ 

370 INPUT “Want another one?”; q$ 

380 IF q$ = “yes” THEN GO SUB ciear: GO TO begin 

390 GOTO9999 

1000 FOR x = 1 TO delay 

1010 NEXTx 

1020 RETURN 

2000 PRINT AT 16,10: ”□□□□□ □□□□□” [K)espacos] 

2005 PRINT AT 6. 10; “□□□□□□□□□□*’ [lOespavos] 

2010 PRINT AT20,2: “□□□□□□□□□□□□□□□□□□ 

□ [42espaeos] 

2015 PRINT AT 10. 2; “□□□□□□□□□□□□□□□□□□ 

□ □□□□□□□□□” f28espavo i '] 

2020 RETURN 
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120 

POR i=1 T 

0 20_ 

130 
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153 
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160 
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HEN PRINT 
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230 


227 
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230 

LET C $ = I 

NKEY$ 

TO coni 

240 

IF c$ = “ :: 

THEN GO 

250 

L tiT W $11 

.1 ss C $ 

(13 

260 

PRINT PT 

16,10;w$ 

265 

GO SUB pause 


270 

FOR P =2 

TO 10 



230 LET C $=INKEY $ _ 

290 IF C$ = *'“ THEN GO TU 230 
300 LE! W$Ù5)=C$ 

305 P RI NT hT 16 , P 4- 9 C $ 

3IO LET C$ = ““ 

315 GO SUB pause 
:~ : 2 0 NEXT p 

330 IF w$=X$ ! HEN PRIN1 PI 20.. 2 
;"Farabensì ! ! " : GO TO end 
' 340 PRINT hT 20 ,2;"Errado! h pa 
Lavra era... > Fj_h=h x 

;x $ : GO TO end 
'350 NEXT i 

350 PRINT HT 20,2;“ReaPOu o_tera 
po , R pala v r a era .= ' 

RSH 1;x % 

37S INPUT "Outra vezv ; fi 
330 IF q 5 = 11 “ ! HEN GO 3UB C Lea f : 

GO TO begin_ 

3 s 0 '2 o T 0 y y y y 
ISO© POR x=l TO delay 
1010 NEXT X 
1020 RETURN 

2320 RETURN ' 


107 



NOTAS 



108 



Aqui està um «puzzle» favorito dos livros da especialidade 
com alguns pormenores adicionados pelo Spectrum 


PALAVRAS CRUZAPAS 
hidden words 


De ao computador até dez palavras que nào podem ter mais de 
dez ietras (urna palavra de dez letras ficarà encostada ao lado direito 
do seu écran, e portanto a regra é que as palavras nào poderào saltar 
de linha). 

O computador organizarà as palavras horizontalmente, vertical¬ 
mente ou diagonalmente, para tràs e para a frente num conjunto qua- 
drado aleatòrio de letras. Quando achar que deve come?ar diga-o ao 
computador. Por exemplo se é no quadrado gl2 prima: 


g (ENTER) 12 (ENTER) 

Introduza depois o nùmero que irà dar a direc?ào à palavra. Os 
valores para essa direc?ào sào os seguintes: 


4 



-0 



Agora diga qual a palavra. Se estiver certo o computador farà de- 
saparecer a palavra da lista de palavras que faltam e colori-la-à no 
quadrado. 

Se introduzir urna palavra que està no quadrado mas que nào està 
na lista de palavras que faltam o computador fica a saber que voce està 
a fazer batota e recusa continuar a jogar consigo! 
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1 LET fillio = 1000: LET test = 2000 

2 LET colour = 3000: LET rubout = 4000: 

LET list = 5000: LET delete = 6000 

3 LET n = 0 

4 RANDOMIZE 

5 CLS 

6 LET pc = 1 

10 DIM w$ (11,11) 

20 DIM s$ (18,18) 

100 INPUT “How many words” ; nw 

110 FOR i = 1TO nw 

120 INPUT “Give me a word please”; w$ (i) 

130 NEXTi 

140 FOR i = 1 TO nw 

150 LET d = INT (RND * 8) 

160 LET r = INT (RND* 18)+1 

170 LET c = INT (RND * 18) + 1 

180 GO SUB fillin 

190 IF NOT filled THEN GO TO 150 

200 NEXTi 

210 FOR r = 1 TO 18 

220 FOR c = 1 TO 18 

230 IF s$ (r, c) = THEN LET s$ (r, c) - CHR$ (INT (RND * 26) 4- 97) 

240 NEXTc 

250 NEXTr 

260 FOR r = 1 TO 18 

270 PRINT AT r, 0; CHR$ (r + 96) 

280 PRINT AT r, 2; s$ (r) 

290 NEXTr 

300 PRINT AT20, 2; “□□□□□□□□□ 111111111” 

310 PRINT AT 21,2; “12 3 4 5 6 7 8 9 0 12 3 4 5 6 7 8” 

315 GO SUB list 

320 INPUT “Word start”; b$, bn 

322 PRINT AT 16,25; “□□□□□ □” 
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325 INPUT “and di rection ” ; d 
330 INPUT “Which word is it”; f$ 

340 GO SUB test 

350 IF valid THEN GO SUB colour 

360 IFnCnwTHEN GOTO 320 

361 PRINT FLASH 1 ; AT16,22; “Well done” 

370 GOTO9999 

1000 LET p = 1 

1010 IF w$ (i, p) - THEN LET filled = 1: RETURN 

1020 IF r > 18 OR r < 1 OR c > 18 OR c < 1 THEN GO SUB rubout: 

LET filled = 0: RETURN 

1030 IF s$ (r, c) < > THEN GO SUB rubout: LET filled = 0: RETURN 
1035 LET s$ (r, c) = w$ (i, p) 

1040 LET p = p + 1 

1050 GOTO 1100 + d* 10 

1100 LETc = c +1: GOTO 1010 

1110 LETc = c + l:LETr = r- 1:GOTO 1010 

1120 LETr = r-1: GOTO 1010 

1130 LETc = c-l:LETr = r-1: GOTO 1010 

1140 LETc = c-1: GOTO 1010 

1150 LETc = c-l:LETr = r + l: GOTO 1010 

1160 LETr = r+I: GOTO 1010 

1170 LETr=r+ l:LETc = c + 1: GOTO 1010 

2000 LET r = CODE b$ - 96 

2010 LET c = bn 

2020 FOR p - 1TO LEN f$ 

2030 IF f$ (p) < > s$ (r, c) THEN PRINT FLASH 1; AT 16,25; “Wrong!”: 

LET valid = 0: RETURN 
2040 GOTO2100+ 10 *d 
2100 LET c = c + 1: GO TO 2180 
2110 LET c = c + 1: LET r = r - 1: GO TO 2180 
2120 LET r = r — 1 : GO TO 2180 
2130 LETc = c-l:LETr = r-1:GOTO2180 
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2140 LETc = c- 1: GOTO2180 

2150 LETc = c-l:LETr = r+l: GOTO2180 

2160 LETr-r + 1: GOTO2180 

2170 LETr=r+ l:LETc = c + 1: GOTO 2180 

2180 NEXTp 

2190 LET valid = 1 

2195 LET n = n + 1 

2197 GO SUB delete 

2200 RETURN 

3000 LET r = CODE b$ — 96 

3005 LET pc = pc + 1 

3006 IF pc > 6 THEN LET pc = 1 
3010 LET c = bn + 1 

3020 FOR p = 1 TO LEN f$ 

3030 PRINT PAPER pc; AT r, c; f$ (p) 

3040 GOTO 3100 + 10 *d 

3100 LET c = c + 1: GO TO 3180 

3110 LET c = c + 1 : LET r = r - 1 : GO TO 3180 

3120 LET r = r - 1: GOTO 3180 

3130 LET c = c - 1: LET r = r - 1 : GO TO 3180 

3140 LETc = c-1: GOTO3180 

3150 LET c = c - 1: LET r = r + 1: GO TO 3180 

3160 LETr = r + 1: GOTO3180 

3170 LETr = r + 1: LETc = c + 1: GOTO3180 

3180 NEXTp 

3185 PAPER 7 

3190 RETURN 

4000 IFp= 1 THEN RETURN 

4010 LET p = p — 1 

4020 GO TO 4100 + 10 * d 

4100 LET c = c — 1: GO TO 4180 

4110 LETc = c- l:LETr = r+l:GOTO4180 

4120 LET r = r + 1 : GO TO 4180 
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i3 0 0 0 ; cn ai p- q ro h - 


4130 LETc = c + l:LETr = r+ 1: GOTO 4180 

4140 LETc=c+ 1: GOTO4180 

4150 LETc = c + l:LETr = r- 1: GOTO 4180 

4160 LETr = r - 1: GOTO4180 

4170 LETr = r-l:LETc==c- 1: GOTO4180 

4180 LET s$ (r, c) = 

4190 GOTO 4000 

5000 PRINT AT 0,22 ; “Missing” 

5010 PRINT AT 1,22; “words .” 

5020 FOR i = 1TO nw 

5030 PRINT PAPER 6; AT i + 2,21 ; w$ (i) 

5040 NEXTi 
5050 RETURN 

6000 LET w$ (11) = f$ 

6005 FOR i = 1 TO nw 

6010 IF w$ (11 ) = w$ (i) THEN PRrNT AT i + 2,21 ; 

“□□□□□□□□□□ RETURN 
6020 NEXTi 



8 
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130 

NEXT 

liS 

ì~ U H X 

150 

LET d 

" p,ì/\ 

j ~*T* ~ 

~ 7 ;? 

7 FT r 

TrS 

Qf| ' 

130 

l 

IF NO' 

200 

NEXT 

210 

?nP f 

220 

j- UH C : 

2 u S 

XF_S $ 

, C ì — 



f, { ^ YT 

250 

FOR r 

270 

PRINT 

280 

PRINT 

290 

NEXT 

300 

PRINT 

.1111 

1 " 


310 FRINÌ P. : 
34.5678“ 


U fi i.ij 
CRNDsS) 

RND ±18 3 +1 
RND*1S3 + 1 



f ;S;CHR5 £ f +96J 

r ; 2 ;s$? r) 

£L 0 , i2 i I 

21,2; ''1234.56739012 


31 6 G0 w : J6 L is l 

320 INF UT “ p rim eira pala v r a ? 


b$, bn 
322 PRINT 
325 INPUT 
330 INPUT 


PT 16,25;" 
"Direccao? **d 
"Qual e a pa lavra? 


v $ •' ■ ; ’ 

34.0 GO SUB test 

350 IF valid THEN GO SUB COlOUr 

360 IF n<nw THFH GO TO 32O 

361 PRINT flRSi . 1;PT 16,22;"Con 
seguiu!" 

370 GO TO ,9999 


1000 LET p2l>.• 




1010 IF W $ :£i , p 3 

=" " THEN LE 

T fil 

led =1; RETURN 

f < 1 OR 


0 R c 

1020 IF f>18 OR 

C > lo 

<1 THEN GO SUB; 
d =0 : RETURN 

r U bO U t : 

LET 

f i ile 

1030 IF s $ ( r . c ;i 

< > " " TH 

EN GO 

S U B 

fUbOUt: LET fil 

! £ d =0 : 

RE ! UH 

N 

1035 LET S $ ? f , C3 =w $Ci , 

P 3 


1040 ì FT d=d+1 




1060 GO ! 0 1100+d*Ì0 



1100 LET C=C+1: 

GO TU 

1810 


1110 LET C = C -f 1 : 

LET r = 

f — 1 : 

GO TO 

1010 




1120 LET f=f-l: 

GO TO 

1018 


1130 LET C =C-I: 

LET r = 

f -1 ; 

GO TO 

1010 

1140 Lei C =C-1: 

GO TO 

1010 


1160 LrT C = C-1: 

LET f = 

r + 1: 

G 0 T 0 

1010 




liso"LET r=f+l: 

GO TO 

1010 


1170 LET f = f +1: 

LET C = 

C+l: 

G 0 TO 


114 




fc $-95 


1010 

2000 LET r=CODE 

201S LET C-hn 

2020 POR P =1 Tw LEM f$ 

2030 IF f$ (pi <>5 $ ( r , C) THEN PRIN 

T FLASH 1;hT 15 .25; "ERROU! ! ”: LE 
T v 3lid=3: RETURN 
2S4-0 GO TU £100 +10*d 
2100 LET c = C +1: GO TO 2180 
2110 LET C = C t 1: LET f=r-1: GO TO 
2180 


2120 LET 

r =r-1 : 

GO TO 

2130 

2130 LET 

c = c - 1 : 

LET r 

zì f — 1 : GO TO 

2180 




2140 LET 

c = c - 1 : 

GO TO 

2183 

2150 LET 

C =C-1: 

LET r 

= r -T 1 • G 0 T o 

2180 




2160 j_£T 

r = r -r 1 : 

GO TO 

2130 

2170 LET 

rsr+i: 

LET C 

= c +1 : G 0 T 0 

2180 




2180 NEXT 

P 



21S0 '..E~ r 

'■< 5 L i d = 



2195 LET 

n =n +1 




2197 GO SUB de Let 

2200 RETURN 

3000 LET r=GODE b$-96 

3035 LET pc=pc+l 

3036 IF pc>5 THEN LET P C =1 
3S10 LET csbn+l 

3320 POR p =1 Tu LEN f$ 

3030 PRINT PAPER pC;AT r . C; f$ (p5 
304-O GO TO 31S0 + 10 *d 
3100 LET Csc+1: GO TO 3180 
3110 LET c=c+l: LET r=r+l: GO TO 
318S 

3120 LET fsr-1: GO TO 3180 
3130 LET C = C-1: LET r = r-1 : GO TO 
3180 

314-3 LET C = C -1 : GO TO 3180 
3150 LET C = C -1 : LET r = r +1 : GO TO 
3180 

3150 LET r = r +1: GO TO 3180 
3170 LET r = r +1 : LET c=C+l: GO TO 
3180 

3180 NEXT p 


3185 

PAPER 7 

3190 

KtiUHN 

4000 

IF P =1 THEN RETURN 

4010 

LdT p =P-1 

4020 

GO TO 4100 +IO-sd 


4130 LET C = C-1: GO TO 4180 
4110 LET C = C-X : LET r=f + l: GO TO 
418u 

4120 LET r=f+l: GO TO 4180 
413S LlT c=C+ 1: LET r=r+l: GO TO 
4180 

4140 LET c=c+l: 60 TO 4180 


115 









116 




Veja corno se daria nos Servigos Secretos! 



CRIPTOGRAMAS 

cryptograms 


O computador seleciona urna frase e mostra urna versào codifica- 
da da mesma (sem espafos entre as palavras) no écran. Voce deve des- 
codificà-Ia até chegar à frase originai. Pode colocar espacos na fase 
codificada para a tornar mais legivel. Mas pense bem — só tem duas 
tentativas! 

Nào pense que quando conseguir descodificar a frase o «puzzle» 
deixou de ter interesse, porque o computador modifica o sistema de 
codificacào sempre que voce pede urna nova frase. 

NOTA (1) Durante a l. a Grande Guerra os Servigos Secretos Na- 
vais Britànicos inventaram urna grande quantidade de sistemas de có- 
digo. Para testar um deles, do qual eles estavam muito orgulhosos, en- 
viaram urna pequena frase codificada aos seus colegas Americanos 
para que a decifrassem. No dia seguinte receberam urna mensagem com a 
sua descodifica?ào: 

«Este código é absolutamente indecifràvel» 

«This code is absolutely unbreakable» 

Por curiosa coincidència està frase sem espagos ocupa precisamen¬ 
te 31 espagos do écran e por isso escolhemo-la corno urna das mensa- 
gens para ser descodificada. Todas as outras mensagens tem também 
31 letras e portanto nem sequer é necessàrio contar as letras da mensa¬ 
gem codificada. 

NOTA (2) Nào vai ser muito dificil resolver estes criptogramas 
porque voce tem as respostas nas linhas de DATA e portanto nào o 
vou ajudar muito.-No entanto dir-lhe-ei que o código que o compu¬ 
tador usa é sempre de substituicào o que quer dizer que se o compu¬ 
tador troca o «a» por «g» no micio da fase também o trocou no firn da 
mesma. Se quer tornar as coisas um pouco mais dificeis para si porque 
nào pede a um amigo para Ihe modificar as linhas do programa DATA. 
Após isso nada de batota! 
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1 RANDOMIZE 

2 DIM w$ (5,31): DEM t (26): DIM n$ (31) 

3 DATA “ this code is absolutely unbreakable” 

4 DATA “thè sentence in front of you is in code” 

5 DATA “translating codes is a black art form” 

6 DATA “cryptologists are men who study code” 

7 DATA “a cryptographer deciphers messages” 

10 LET trys = 0 

70 FOR p = 1 TO 26 
80 LET t (p) = p 
90 NEXTp 
100 FOR r = 1 TO 5 
110 LET p = 1 
120 READ m$ 

130 FOR c = 1 TO 31 

140 IF m$ (p) = THEN LET p = p + 1 : GO TO 140 
150 LET w$ (r. c) = m$ (p) 

160 LET p = p + 1 

170 NEXTc 

180 NEXTr 

190 FOR i = 1 TO 50 

200 LET p - INT (RND * 26) + 1 

210 LET q = INT (RND * 26) + 1 


220 LET temp = t (p) 

230 LET t (p) — t (q) 

240 LET t(q) = temp 
250 NEXTi 

252 FOR i = 1 TO 26 

253 LET t (i) = t (i) + 96 

254 NEXTi 

260 LET r = INT (RND * 5) + 1 
270 FORc = ITO31 

280 LET n$ (c) = CHR$ (t (CODE w$ (r, c) - CODE “a” + 1) ) 
290 NEXTc 
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300 PRINT AT2.2; “Here’s thè message .. 

310 PRINT AT 10, 0;n$ 

320 INPUT “What’s your decode? ” ; d$ 

330 LET c = 1 

340 FORp= ITOLENdS 

350 IFd$(p) = THEN GOTO 380 

360 LET n$ (c) = d$ (p) 

370 LET c = c + 1 

380 NEXTp 

385 LET trys = trys + 1 

390 IF n$ < > w$ (r) AND trys < 2 THEN PRINT AT 2,2; 

“Try again [15espa<;os]”: GO TO 320 

400 IF n$ = w$ (r) THEN PRINT AT 2,2; “You’ve got it!!M □□□□□□ □” 
410 INPUT “Want another one?”; q$ 

420 IF q$ = “yes” THEN CLS: RESTORE: GO TO 1 
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p ' 

13S 

FGR 

r — 1 Tu 5 

110 

LET 

p =1 

ib :0 

PFPO 

m $ 

■] r":;?! 

FOR 

C=1 TO 31 

143 

1 F “ THEH LEi p=p+l 

GO 

T f; -1 

43 


: cr~r 
i_i— ! 

w $ ( r , c j = m s i p ) 

150 

LET 

P =p +1 

173 

NEXT 

c 

133 

NEXT 

r 

19S 

FOR 

i=1 TO 53 

200 

LET 

P =XNT ( RND*26 ) +1 

213 

LET 

■q = INT (RND *26) +1 

223 

LET 

t £ Hi p = t (P ) 

23S 

LET 

t ì p ) = t ( q ) 

243 

LET 

t (qj = t £ Hi p 

253 

NEXT 

i 

252 

FOR 

i=1 TO 26 

253 

LET 

t ( i ) =t ( i ) 495 

254 

NEXT 

i 

263 

LET 

r=INT (RND45)4l 

273 

FOR 

C -1 TO 31 

233 

LET 

n $ ( c ) =CHR$ tt (CODE w§ir 


, C ) -CODE '‘a" 4in 
£90 NEXT c 

3S0 PR XN I H ! b! ci ; "fin2. £ £ t 5 S \(i 

ensagsm * . = 

310 P‘RINi hT 18,0;nS 

320 INPUT " CO ?n 0 d £ £ c 0 di fi C 3 ? ” ; 


33® NEXT”P 


3 lì n $ < >y 
i PRINT PT 2 = ; 


c =1 

p~l TO LEN d 5 
i $ ( p 1 = ‘ ’ ! ' T H E N G 0 
n $ c c j — d $ c p ) 


iii-ti 

j H N L-* 




4 11 X F‘i f -: U i 


: P-i >- r*-« 
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Consegue; 

— Atravessar com éxito a floresta màgica? 

— Transportar o lobo, é cabra e a couve através do 
no? 

— Distribuir igualmente o vinho sem derramà-lo? 

Todos estes programàs foram concebidos para fun- 
cionarem no Spectrum, sendo os 1 5 primeiros concebi¬ 
dos para o ZX 81 e depois modificados com alguns por- 
menores do Spectrum para Ihes dar mais beleza. 

NOTA: Necessita de 16K RAM no seu ZX 81. 


Boa sorte! 








